aboutsummaryrefslogtreecommitdiff
path: root/src/server/Utils
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Utils')
-rw-r--r--src/server/Utils/Time.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/src/server/Utils/Time.hs b/src/server/Utils/Time.hs
index e8c7ac1..170ab36 100644
--- a/src/server/Utils/Time.hs
+++ b/src/server/Utils/Time.hs
@@ -14,9 +14,7 @@ belongToCurrentMonth time = do
return (timeMonth == actualMonth)
timeToDay :: UTCTime -> IO Day
-timeToDay time = do
- timeZone <- getCurrentTimeZone
- return . localDay $ utcToLocalTime timeZone time
+timeToDay time = localDay . (flip utcToLocalTime time) <$> getTimeZone time
dayMonth :: Day -> Int
dayMonth day =