Merge branch 'with-ghcjs' into 'master'

Use Haskell on the frontend

See merge request guyonvarch/shared-cost!2

1 files changed, 0 insertions, 54 deletions

diff --git a/src/server/Resource.hs b/src/server/Resource.hs
deleted file mode 100644
index f52bbfa..0000000
--- a/src/server/Resource.hs
+++ /dev/null
@@ -1,54 +0,0 @@
-module Resource
-  ( Resource
-  , resourceCreatedAt
-  , resourceEditedAt
-  , resourceDeletedAt
-  , Status(..)
-  , statuses
-  , groupByStatus
-  , statusDuring
-  ) where
-
-import Data.Maybe (fromMaybe)
-import Data.Map (Map)
-import qualified Data.Map as M
-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