From 11052951b74b9ad4b6a9412ae490086235f9154b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2021 13:40:40 +0100
Subject: Rewrite in Rust

---
 server/src/Resource.hs | 54 --------------------------------------------------
 1 file changed, 54 deletions(-)
 delete mode 100644 server/src/Resource.hs

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

diff --git a/server/src/Resource.hs b/server/src/Resource.hs
deleted file mode 100644
index a12a0f2..0000000
--- a/server/src/Resource.hs
+++ /dev/null
@@ -1,54 +0,0 @@
-module Resource
-  ( Resource
-  , resourceCreatedAt
-  , resourceEditedAt
-  , resourceDeletedAt
-  , Status(..)
-  , statuses
-  , groupByStatus
-  , statusDuring
-  ) where
-
-import           Data.Map        (Map)
-import qualified Data.Map        as M
-import           Data.Maybe      (fromMaybe)
-import           Data.Time.Clock (UTCTime)
-
-class Resource a where
-  resourceCreatedAt :: a -> UTCTime
-  resourceEditedAt :: a -> Maybe UTCTime
-  resourceDeletedAt :: a -> Maybe UTCTime
-
-data Status =
-  Created
-  | Edited
-  | Deleted
-  deriving (Eq, Show, Read, Ord, Enum, Bounded)
-
-statuses :: [Status]
-statuses = [minBound..]
-
-groupByStatus :: Resource a => UTCTime -> UTCTime -> [a] -> Map Status [a]
-groupByStatus start end resources =
-  foldl
-    (\m resource ->
-      case statusDuring start end resource of
-        Just status -> M.insertWith (++) status [resource] m
-        Nothing     -> m
-    )
-    M.empty
-    resources
-
-statusDuring :: Resource a => UTCTime -> UTCTime -> a -> Maybe Status
-statusDuring start end resource
-  | created && not deleted = Just Created
-  | not created && edited && not deleted = Just Edited
-  | not created && deleted = Just Deleted
-  | otherwise = Nothing
-  where
-    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