Sign in with email and password

1 files changed, 4 insertions, 6 deletions

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