Remove Finalize action.
parent
52bbebd879
commit
7c5574e3d4
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue