Minor syntax detail.

src/App/ZoneInterface.purs

@@ -566,9 +566,10 @@ handleAction = case _ of
   SPF_Qualifier v   -> H.modify_ _ { spf_qualifier   = maybe "none"     id $ qualifier_types A.!! v }
   SPF_remove_mechanism i ->
     H.modify_ \s -> s { _currentRR { mechanisms = case s._currentRR.mechanisms of
-        Just ms -> Just (remove_id i $ attach_id 0 ms)
-        Nothing -> Nothing
-      } }
+                                       Just ms -> Just (remove_id i $ attach_id 0 ms)
+                                       Nothing -> Nothing
+                                   }
+                      }
 
   SPF_Mechanism_Add -> do
     state <- H.get