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

View File

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