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

46
src/App/ZoneInterface.purs
View File

@ -467,28 +467,30 @@ 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
A -> do case form of
state <- H.get A -> do
try_add_new_entry state._domain (Validation.validateSRR state._newRR) "A" state <- H.get
AAAA -> do try_add_new_entry state._domain (Validation.validateSRR state._newRR) "A"
state <- H.get AAAA -> do
try_add_new_entry state._domain (Validation.validateSRR state._newRR) "AAAA" state <- H.get
TXT -> do try_add_new_entry state._domain (Validation.validateSRR state._newRR) "AAAA"
state <- H.get TXT -> do
try_add_new_entry state._domain (Validation.validateSRR state._newRR) "TXT" state <- H.get
CNAME -> do try_add_new_entry state._domain (Validation.validateSRR state._newRR) "TXT"
state <- H.get CNAME -> do
try_add_new_entry state._domain (Validation.validateSRR state._newRR) "CNAME" state <- H.get
NS -> do try_add_new_entry state._domain (Validation.validateSRR state._newRR) "CNAME"
state <- H.get NS -> do
try_add_new_entry state._domain (Validation.validateSRR state._newRR) "NS" state <- H.get
MX -> do try_add_new_entry state._domain (Validation.validateSRR state._newRR) "NS"
state <- H.get MX -> do
try_add_new_entry state._domain (Validation.validateMXRR state._newRR) "MX" state <- H.get
SRV -> do try_add_new_entry state._domain (Validation.validateMXRR state._newRR) "MX"
state <- H.get SRV -> do
try_add_new_entry state._domain (Validation.validateSRVRR state._newRR) "SRV" state <- H.get
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