karchnu
/
halogen-websocket-ipc-playzone
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove the modal when the "add" button is clicked.

beta
Philippe Pittoli 2024-01-23 02:42:04 +01:00
parent 7fcb9d73a9
commit d6f49210a8
1 changed files with 24 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/App/ZoneInterface.purs
View File

@ -467,7 +467,8 @@ handleAction = case _ of
-- | Can fail if the content of the form isn't valid. -- | Can fail if the content of the form isn't valid.
-- | -- |
-- | TODO: perform verifications BEFORE this action can even be performed. -- | TODO: perform verifications BEFORE this action can even be performed.
AddRR form -> case form of AddRR form -> do
case form of
A -> do A -> do
state <- H.get state <- H.get
try_add_new_entry state._domain (Validation.validateSRR state._newRR) "A" try_add_new_entry state._domain (Validation.validateSRR state._newRR) "A"
@ -489,6 +490,7 @@ handleAction = case _ of
SRV -> do SRV -> do
state <- H.get state <- H.get
try_add_new_entry state._domain (Validation.validateSRVRR state._newRR) "SRV" try_add_new_entry state._domain (Validation.validateSRVRR state._newRR) "SRV"
handleAction CancelModal
UpdateLocalForm rr_id form -> case form of UpdateLocalForm rr_id form -> case form of
Update_Local_Form_SRR rr_update -> case rr_update of Update_Local_Form_SRR rr_update -> case rr_update of