diff options
author | Joris | 2019-11-03 11:28:42 +0100 |
---|---|---|
committer | Joris | 2019-11-03 11:28:42 +0100 |
commit | 9dbb4e6f7c2f0edc1126626e2ff498144c6b9947 (patch) | |
tree | da352e0861a2786a3a57dab2397ec7d678b5919b /common/src/Common/Model/IncomeHeader.hs | |
parent | a267f0bb4566389342c3244d3c082dc2453f4615 (diff) | |
download | budget-9dbb4e6f7c2f0edc1126626e2ff498144c6b9947.tar.gz budget-9dbb4e6f7c2f0edc1126626e2ff498144c6b9947.tar.bz2 budget-9dbb4e6f7c2f0edc1126626e2ff498144c6b9947.zip |
Show income header
Diffstat (limited to 'common/src/Common/Model/IncomeHeader.hs')
-rw-r--r-- | common/src/Common/Model/IncomeHeader.hs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/common/src/Common/Model/IncomeHeader.hs b/common/src/Common/Model/IncomeHeader.hs new file mode 100644 index 0000000..a1defdf --- /dev/null +++ b/common/src/Common/Model/IncomeHeader.hs @@ -0,0 +1,18 @@ +module Common.Model.IncomeHeader + ( IncomeHeader(..) + ) where + +import Data.Aeson (FromJSON, ToJSON) +import Data.Map (Map) +import Data.Time.Clock (UTCTime) +import GHC.Generics (Generic) + +import Common.Model.User (UserId) + +data IncomeHeader = IncomeHeader + { _incomeHeader_since :: Maybe UTCTime + , _incomeHeader_byUser :: Map UserId Int + } deriving (Show, Generic) + +instance FromJSON IncomeHeader +instance ToJSON IncomeHeader |