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

src/App/ZoneInterface.purs

@@ -467,7 +467,8 @@ 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
+  AddRR form -> do
+    case form of
       A -> do
         state <- H.get
         try_add_new_entry state._domain (Validation.validateSRR state._newRR) "A"
@@ -489,6 +490,7 @@ handleAction = case _ of
       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