Ajax'ed authpreds

src/Handler/Home.hs

@@ -290,11 +290,11 @@ postAuthPredsR = do
       <$> funcForm taForm (fslI MsgActiveAuthTags) True
       <*  submitButton
 
-  formResult authActiveRes $ \authTagActive -> do
+  formResultModal authActiveRes AuthPredsR $ \authTagActive -> do
     setSessionJson SessionActiveAuthTags authTagActive
-    addMessageI Success MsgAuthPredsActiveChanged
-    redirect AuthPredsR
+    tell . pure =<< messageI Success MsgAuthPredsActiveChanged
 
   defaultLayout $ do
     setTitleI MsgAuthPredsActive
+    isModal <- hasCustomHeader HeaderIsModal
     $(widgetFile "authpreds")

templates/authpreds.hamlet

@@ -1,2 +1,2 @@
-<form method=post action=@{AuthPredsR} enctype=#{authActiveEnctype}>
+<form method=post action=@{AuthPredsR} enctype=#{authActiveEnctype} :isModal:data-ajax-submit>
   ^{authActiveWidget}