diff options
| author | Joris | 2019-05-01 15:52:32 +0200 |
|---|---|---|
| committer | Joris | 2019-05-01 17:11:02 +0200 |
| commit | 23f04635cc26e1b0553088f28553f518488a9fc8 (patch) | |
| tree | 97037643bab24564046ce4aba90481e3b92a15d3 /src/Date.hs | |
| parent | 0fe906ae7453aa684e998bbcc7a78b62d84f0206 (diff) | |
Setup personal page with Hakyll
Diffstat (limited to 'src/Date.hs')
| -rw-r--r-- | src/Date.hs | 17 |
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)) |