Remove Finalize action.

This commit is contained in:
Philippe Pittoli 2023-07-12 19:15:08 +02:00
parent 52bbebd879
commit 7c5574e3d4

View File

@ -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