1 files changed, 0 insertions, 17 deletions
diff --git a/src/Date.hs b/src/Date.hs
deleted file mode 100644
index e3c16e5..0000000
--- a/src/Date.hs
+++ /dev/null
@@ -1,17 +0,0 @@
-module Date
-  ( getCurrentDate
-  ) where
-
-import Data.Time.Clock
-import Data.Time.Calendar
-import Data.Time.LocalTime
-
-import Model.Date
-
-getCurrentDate :: IO Date
-getCurrentDate = do
-  now <- getCurrentTime
-  timezone <- getCurrentTimeZone
-  let zoneNow = utcToLocalTime timezone now
-  let (y, m, _) = toGregorian $ localDay zoneNow
-  return (Date m (fromIntegral y))