diff --git a/src/App/ZoneInterface.purs b/src/App/ZoneInterface.purs index f5250e7..d1b334f 100644 --- a/src/App/ZoneInterface.purs +++ b/src/App/ZoneInterface.purs @@ -118,7 +118,6 @@ data Action | CancelModal | Initialize - | Finalize -- Add new entries. | AddRR Add_RR @@ -162,7 +161,6 @@ component = { initialize = Just Initialize , handleAction = handleAction , handleQuery = handleQuery - , finalize = Just Finalize } } @@ -251,9 +249,6 @@ handleAction = case _ of message <- H.liftEffect $ DNSManager.serialize $ DNSManager.MkGetZone { domain: _current_domain } H.raise $ MessageToSend message - Finalize -> do - H.raise $ Log $ SimpleLog "Finalized!" - UpdateNewForm form -> case form of Update_New_Form_SRR rr_update -> case rr_update of Update_SRR_Type val -> do