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

---
 common/src/Common/Util/Time.hs | 26 --------------------------
 1 file changed, 26 deletions(-)
 delete mode 100644 common/src/Common/Util/Time.hs

(limited to 'common/src/Common/Util/Time.hs')

diff --git a/common/src/Common/Util/Time.hs b/common/src/Common/Util/Time.hs
deleted file mode 100644
index 6240720..0000000
--- a/common/src/Common/Util/Time.hs
+++ /dev/null
@@ -1,26 +0,0 @@
-module Common.Util.Time
-  ( timeToDay
-  , parseDay
-  ) where
-
-import           Data.Text           (Text)
-import qualified Data.Text           as T
-import           Data.Time           (UTCTime)
-import qualified Data.Time           as Time
-import           Data.Time.Calendar  (Day)
-import           Data.Time.LocalTime
-import qualified Text.Read           as T
-
-timeToDay :: UTCTime -> IO Day
-timeToDay time = localDay . (flip utcToLocalTime time) <$> getTimeZone time
-
-parseDay :: Text -> Maybe Day
-parseDay str = do
-  (y, m, d) <-
-    case T.splitOn "-" str of
-      [y, m, d] -> Just (y, m, d)
-      _         -> Nothing
-  d' <- T.readMaybe . T.unpack $ d
-  m' <- T.readMaybe . T.unpack $ m
-  y' <- T.readMaybe . T.unpack $ y
-  return $ Time.fromGregorian y' m' d'
-- 
cgit v1.2.3