aboutsummaryrefslogtreecommitdiff
path: root/common/src/Common/Model/InitResult.hs
diff options
context:
space:
mode:
authorJoris2018-01-28 12:13:09 +0100
committerJoris2018-06-11 12:28:29 +0200
commit33b85b7f12798f5762d940ed5c30f775cdd7b751 (patch)
treedaf8cfb7b0a16b2fce65848fc0ca2831f33a0701 /common/src/Common/Model/InitResult.hs
parentab17b6339d16970c3845ec4f153bfeed89eae728 (diff)
downloadbudget-33b85b7f12798f5762d940ed5c30f775cdd7b751.tar.gz
budget-33b85b7f12798f5762d940ed5c30f775cdd7b751.tar.bz2
budget-33b85b7f12798f5762d940ed5c30f775cdd7b751.zip
WIP
Diffstat (limited to 'common/src/Common/Model/InitResult.hs')
-rw-r--r--common/src/Common/Model/InitResult.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/common/src/Common/Model/InitResult.hs b/common/src/Common/Model/InitResult.hs
index 542e6c7..f4c08a9 100644
--- a/common/src/Common/Model/InitResult.hs
+++ b/common/src/Common/Model/InitResult.hs
@@ -10,7 +10,8 @@ import Common.Model.Init (Init)
data InitResult =
InitSuccess Init
- | InitEmpty (Either Text (Maybe Text))
+ | InitError Text
+ | InitEmpty
deriving (Show, Generic)
instance FromJSON InitResult