diff --git a/src/App/ZoneInterface.purs b/src/App/ZoneInterface.purs
index 5272449..8a52fa1 100644
--- a/src/App/ZoneInterface.purs
+++ b/src/App/ZoneInterface.purs
@@ -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