diff options
author | Joris | 2017-06-05 18:02:13 +0200 |
---|---|---|
committer | Joris | 2017-06-05 18:02:13 +0200 |
commit | 0b191f5c48edffc9da3e38c284e9640fd82e7cb1 (patch) | |
tree | c729e53822e7c41c1a854d82d25636e58ee65c9f /src/server/Resource.hs | |
parent | 5c110716cfda6e616a795edd12f2012b132dca9f (diff) | |
download | budget-0b191f5c48edffc9da3e38c284e9640fd82e7cb1.tar.gz budget-0b191f5c48edffc9da3e38c284e9640fd82e7cb1.tar.bz2 budget-0b191f5c48edffc9da3e38c284e9640fd82e7cb1.zip |
Replace persistent by sqlite-simple
Diffstat (limited to 'src/server/Resource.hs')
-rw-r--r-- | src/server/Resource.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/server/Resource.hs b/src/server/Resource.hs index 8999b77..f52bbfa 100644 --- a/src/server/Resource.hs +++ b/src/server/Resource.hs @@ -1,8 +1,8 @@ module Resource ( Resource - , createdAt - , editedAt - , deletedAt + , resourceCreatedAt + , resourceEditedAt + , resourceDeletedAt , Status(..) , statuses , groupByStatus @@ -15,9 +15,9 @@ import qualified Data.Map as M import Data.Time.Clock (UTCTime) class Resource a where - createdAt :: a -> UTCTime - editedAt :: a -> Maybe UTCTime - deletedAt :: a -> Maybe UTCTime + resourceCreatedAt :: a -> UTCTime + resourceEditedAt :: a -> Maybe UTCTime + resourceDeletedAt :: a -> Maybe UTCTime data Status = Created @@ -46,9 +46,9 @@ statusDuring start end resource | not created && deleted = Just Deleted | otherwise = Nothing where - created = belongs (createdAt resource) start end - edited = fromMaybe False (fmap (\t -> belongs t start end) $ editedAt resource) - deleted = fromMaybe False (fmap (\t -> belongs t start end) $ deletedAt resource) + created = belongs (resourceCreatedAt resource) start end + edited = fromMaybe False (fmap (\t -> belongs t start end) $ resourceEditedAt resource) + deleted = fromMaybe False (fmap (\t -> belongs t start end) $ resourceDeletedAt resource) belongs :: UTCTime -> UTCTime -> UTCTime -> Bool belongs time start end = time >= start && time < end |