diff options
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 |