From 23f04635cc26e1b0553088f28553f518488a9fc8 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 1 May 2019 15:52:32 +0200
Subject: Setup personal page with Hakyll

---
 src/Date.hs | 17 -----------------
 1 file changed, 17 deletions(-)
 delete mode 100644 src/Date.hs

(limited to 'src/Date.hs')

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