From af8353c6164aaaaa836bfed181f883ac86bb76a5 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 19 Jan 2020 14:03:31 +0100
Subject: Sign in with email and password

---
 client/src/Main.hs | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'client/src/Main.hs')

diff --git a/client/src/Main.hs b/client/src/Main.hs
index d6f89cd..c71b0f0 100644
--- a/client/src/Main.hs
+++ b/client/src/Main.hs
@@ -14,7 +14,7 @@ import           JSDOM.Types                          (HTMLElement (..), JSM,
 import qualified JSDOM.Types                          as Dom
 import           Prelude                              hiding (error, init)
 
-import           Common.Model                         (InitResult (InitError))
+import           Common.Model                         (Init)
 import qualified Common.Msg                           as Msg
 
 import qualified View.App                             as App
@@ -24,7 +24,7 @@ main = do
   initResult <- readInit
   App.widget initResult
 
-readInit :: JSM InitResult
+readInit :: JSM (Maybe Init)
 readInit = do
   document <- Dom.currentDocumentUnchecked
   initNode <- Dom.getElementById document ("init" :: JSString)
@@ -34,8 +34,6 @@ readInit = do
       text <- Dom.textFromJSString <$> Dom.getInnerText (Dom.uncheckedCastTo HTMLElement node)
       return $ case Aeson.decode (LB.fromStrict . T.encodeUtf8 $ text) of
         Just init -> init
-        Nothing   -> initParseError
+        Nothing   -> Nothing
     _ ->
-      return initParseError
-
-  where initParseError = InitError $ Msg.get Msg.SignIn_ParseError
+      return Nothing
-- 
cgit v1.2.3