diff options
author | Joris | 2018-01-28 12:13:09 +0100 |
---|---|---|
committer | Joris | 2018-06-11 12:28:29 +0200 |
commit | 33b85b7f12798f5762d940ed5c30f775cdd7b751 (patch) | |
tree | daf8cfb7b0a16b2fce65848fc0ca2831f33a0701 /client/src/Main.hs | |
parent | ab17b6339d16970c3845ec4f153bfeed89eae728 (diff) | |
download | budget-33b85b7f12798f5762d940ed5c30f775cdd7b751.tar.gz budget-33b85b7f12798f5762d940ed5c30f775cdd7b751.tar.bz2 budget-33b85b7f12798f5762d940ed5c30f775cdd7b751.zip |
WIP
Diffstat (limited to 'client/src/Main.hs')
-rw-r--r-- | client/src/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |