diff --git a/src/App/ZoneInterface.purs b/src/App/ZoneInterface.purs index 8a52fa1..f4ad031 100644 --- a/src/App/ZoneInterface.purs +++ b/src/App/ZoneInterface.purs @@ -105,8 +105,7 @@ data Update_MODAL_Form | Update_MODAL_Port Port data Update_SRR_Form - = Update_SRR_Type Int - | Update_SRR_Domain RecordName + = Update_SRR_Domain RecordName | Update_SRR_TTL TTL | Update_SRR_Target RecordTarget @@ -494,9 +493,6 @@ handleAction = case _ of UpdateLocalForm rr_id form -> case form 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 -- H.raise $ Log $ SimpleLog ("Update local RR " <> show rr_id <> " name: " <> val) state <- H.get