diff options
| author | Joris | 2016-03-28 18:04:25 +0200 |
|---|---|---|
| committer | Joris | 2016-03-28 18:04:25 +0200 |
| commit | cc58377a48d13ef85cedb5ec0e19eb8b879dd497 (patch) | |
| tree | 8a400e8e208f9ca7a94a3dad054bdad2b4a04b0f /src/server/Model/Json/Payer.hs | |
| parent | 166cd04e4b28770ede854dafc9ae30eae64102fe (diff) | |
| download | budget-cc58377a48d13ef85cedb5ec0e19eb8b879dd497.tar.gz budget-cc58377a48d13ef85cedb5ec0e19eb8b879dd497.tar.bz2 budget-cc58377a48d13ef85cedb5ec0e19eb8b879dd497.zip | |
Compute payment count client side
Diffstat (limited to 'src/server/Model/Json/Payer.hs')
| -rw-r--r-- | src/server/Model/Json/Payer.hs | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/src/server/Model/Json/Payer.hs b/src/server/Model/Json/Payer.hs deleted file mode 100644 index 2101e40..0000000 --- a/src/server/Model/Json/Payer.hs +++ /dev/null @@ -1,22 +0,0 @@ -{-# LANGUAGE DeriveGeneric #-} - -module Model.Json.Payer - ( Payer(..) - ) where - -import GHC.Generics - -import Data.Aeson - -import Model.Database (UserId) -import Model.Json.Income - -data Payer = Payer - { userId :: UserId - , preIncomePaymentSum :: Int - , postIncomePaymentSum :: Int - , incomes :: [Income] - } deriving (Show, Generic) - -instance FromJSON Payer -instance ToJSON Payer |