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 /common/src/Common/Model | |
| parent | ab17b6339d16970c3845ec4f153bfeed89eae728 (diff) | |
| download | budget-33b85b7f12798f5762d940ed5c30f775cdd7b751.tar.gz budget-33b85b7f12798f5762d940ed5c30f775cdd7b751.tar.bz2 budget-33b85b7f12798f5762d940ed5c30f775cdd7b751.zip | |
WIP
Diffstat (limited to 'common/src/Common/Model')
| -rw-r--r-- | common/src/Common/Model/CreatePayment.hs | 3 | ||||
| -rw-r--r-- | common/src/Common/Model/InitResult.hs | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/common/src/Common/Model/CreatePayment.hs b/common/src/Common/Model/CreatePayment.hs index 8e2ab73..cd0b01d 100644 --- a/common/src/Common/Model/CreatePayment.hs +++ b/common/src/Common/Model/CreatePayment.hs @@ -2,7 +2,7 @@ module Common.Model.CreatePayment ( CreatePayment(..) ) where -import Data.Aeson (FromJSON) +import Data.Aeson (FromJSON, ToJSON) import Data.Text (Text) import Data.Time.Calendar (Day) import GHC.Generics (Generic) @@ -19,3 +19,4 @@ data CreatePayment = CreatePayment } deriving (Show, Generic) instance FromJSON CreatePayment +instance ToJSON CreatePayment 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 |