diff options
| author | Joris | 2016-11-13 11:58:22 +0100 |
|---|---|---|
| committer | Joris | 2016-11-13 11:58:22 +0100 |
| commit | ede7b4fade5c396b47d386bd616e05805622b647 (patch) | |
| tree | 3b9152ace8d02687151046ad2f67b625b8ccda00 /src/server/Resource.hs | |
| parent | 86a96decdb8892b10c5314eb916ef15a64204450 (diff) | |
| download | budget-ede7b4fade5c396b47d386bd616e05805622b647.tar.gz budget-ede7b4fade5c396b47d386bd616e05805622b647.tar.bz2 budget-ede7b4fade5c396b47d386bd616e05805622b647.zip | |
Show a different message on weekly report if there were no activity during the previous week
Diffstat (limited to 'src/server/Resource.hs')
| -rw-r--r-- | src/server/Resource.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/server/Resource.hs b/src/server/Resource.hs index 4dd8615..8999b77 100644 --- a/src/server/Resource.hs +++ b/src/server/Resource.hs @@ -4,6 +4,7 @@ module Resource , editedAt , deletedAt , Status(..) + , statuses , groupByStatus , statusDuring ) where @@ -22,7 +23,10 @@ data Status = Created | Edited | Deleted - deriving (Eq, Show, Read, Ord) + deriving (Eq, Show, Read, Ord, Enum, Bounded) + +statuses :: [Status] +statuses = [minBound..] groupByStatus :: Resource a => UTCTime -> UTCTime -> [a] -> Map Status [a] groupByStatus start end resources = |