Remove Finalize action.

beta
Philippe Pittoli 2023-07-12 19:15:08 +02:00
parent 52bbebd879
commit 7c5574e3d4
1 changed files with 0 additions and 5 deletions

View File

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