Use the timezone of the time and not the timezone of now

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 =