Remove unused code.

beta
Philippe Pittoli 2024-01-23 02:44:06 +01:00
parent d6f49210a8
commit 8310488e82
1 changed files with 1 additions and 5 deletions

View File

@ -105,8 +105,7 @@ data Update_MODAL_Form
| Update_MODAL_Port Port | Update_MODAL_Port Port
data Update_SRR_Form data Update_SRR_Form
= Update_SRR_Type Int = Update_SRR_Domain RecordName
| Update_SRR_Domain RecordName
| Update_SRR_TTL TTL | Update_SRR_TTL TTL
| Update_SRR_Target RecordTarget | Update_SRR_Target RecordTarget
@ -494,9 +493,6 @@ handleAction = case _ of
UpdateLocalForm rr_id form -> case form of UpdateLocalForm rr_id form -> case form of
Update_Local_Form_SRR rr_update -> case rr_update of Update_Local_Form_SRR rr_update -> case rr_update of
Update_SRR_Type val -> do
let new_type = fromMaybe "unknown" (baseRecords A.!! val)
H.raise $ Log $ SimpleLog ("TODO: Update local RR " <> show rr_id <> " type: " <> new_type)
Update_SRR_Domain val -> do Update_SRR_Domain val -> do
-- H.raise $ Log $ SimpleLog ("Update local RR " <> show rr_id <> " name: " <> val) -- H.raise $ Log $ SimpleLog ("Update local RR " <> show rr_id <> " name: " <> val)
state <- H.get state <- H.get