From 33b85b7f12798f5762d940ed5c30f775cdd7b751 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 28 Jan 2018 12:13:09 +0100
Subject: WIP

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

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

diff --git a/client/src/Main.hs b/client/src/Main.hs
index d55eefe..6c048c6 100644
--- a/client/src/Main.hs
+++ b/client/src/Main.hs
@@ -13,7 +13,7 @@ import           JSDOM.Types                          (HTMLElement (..), JSM)
 import qualified JSDOM.Types                          as Dom
 import           Prelude                              hiding (error, init)
 
-import           Common.Model                         (InitResult (InitEmpty))
+import           Common.Model                         (InitResult (InitError))
 import qualified Common.Msg                           as Msg
 
 import qualified View.App                             as App
@@ -37,4 +37,4 @@ readInit = do
     _ ->
       return initParseError
 
-  where initParseError = InitEmpty (Left $ Msg.get Msg.SignIn_ParseError)
+  where initParseError = InitError $ Msg.get Msg.SignIn_ParseError
-- 
cgit v1.2.3