From 0b191f5c48edffc9da3e38c284e9640fd82e7cb1 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 5 Jun 2017 18:02:13 +0200
Subject: Replace persistent by sqlite-simple

---
 src/server/Resource.hs | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'src/server/Resource.hs')

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
-- 
cgit v1.2.3