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