From 86957359ecf54c205aee1c09e151172c327e987a Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 31 Oct 2018 19:03:19 +0100
Subject: Various fixes

---
 server/src/Controller/Index.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'server/src/Controller/Index.hs')

diff --git a/server/src/Controller/Index.hs b/server/src/Controller/Index.hs
index f942540..0b276d3 100644
--- a/server/src/Controller/Index.hs
+++ b/server/src/Controller/Index.hs
@@ -6,6 +6,7 @@ module Controller.Index
   ) where
 
 import           Control.Monad.IO.Class    (liftIO)
+import qualified Data.Aeson                as Json
 import           Data.Text                 (Text)
 import qualified Data.Text                 as T
 import qualified Data.Text.Encoding        as TE
@@ -60,7 +61,7 @@ askSignIn conf (SignIn email) =
                     ]
           maybeSentMail <- liftIO . SendMail.sendMail conf $ SignIn.mail conf user url [email]
           case maybeSentMail of
-            Right _ -> textKey ok200 Msg.SignIn_EmailSent
+            Right _ -> S.json (Json.String . Msg.get $ Msg.SignIn_EmailSent)
             Left _  -> textKey badRequest400 Msg.SignIn_EmailSendFail
         Nothing -> textKey badRequest400 Msg.Secure_Unauthorized
     else textKey badRequest400 Msg.SignIn_EmailInvalid
-- 
cgit v1.2.3