diff options
author | Joris | 2018-01-03 17:31:20 +0100 |
---|---|---|
committer | Joris | 2018-01-03 17:31:22 +0100 |
commit | a4acc2e84158fa822f88a1d0bdddb470708b5809 (patch) | |
tree | 3faeb0128a51b437501470bd38be62e6e871e9f3 /server/src/Model/Mail.hs | |
parent | 49426740e8e0c59040f4f3721a658f225572582b (diff) | |
download | budget-a4acc2e84158fa822f88a1d0bdddb470708b5809.tar.gz budget-a4acc2e84158fa822f88a1d0bdddb470708b5809.tar.bz2 budget-a4acc2e84158fa822f88a1d0bdddb470708b5809.zip |
Modify weelky report and payment search interface
- Add payment balance in weekly report
- Show a message and hide pages when the search results in no results
- Go to page 1 when the search is updated / erased
Diffstat (limited to 'server/src/Model/Mail.hs')
-rw-r--r-- | server/src/Model/Mail.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/server/src/Model/Mail.hs b/server/src/Model/Mail.hs index a19f9ae..780efcc 100644 --- a/server/src/Model/Mail.hs +++ b/server/src/Model/Mail.hs @@ -5,8 +5,8 @@ module Model.Mail import Data.Text (Text) data Mail = Mail - { from :: Text - , to :: [Text] - , subject :: Text - , plainBody :: Text + { from :: Text + , to :: [Text] + , subject :: Text + , body :: Text } deriving (Eq, Show) |