diff options
| author | Joris | 2017-11-13 23:56:40 +0100 |
|---|---|---|
| committer | Joris | 2017-11-14 00:03:10 +0100 |
| commit | 5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1 (patch) | |
| tree | 4884de1d03bc47ba8f06b2cf68365d9eed9e0d39 /server/src/Utils/Time.hs | |
| parent | 213cf7ede058b781fc957de2cd9f6a5988c08004 (diff) | |
Setup stylish-haskell
Diffstat (limited to 'server/src/Utils/Time.hs')
| -rw-r--r-- | server/src/Utils/Time.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/server/src/Utils/Time.hs b/server/src/Utils/Time.hs index 97457c7..e1a94d3 100644 --- a/server/src/Utils/Time.hs +++ b/server/src/Utils/Time.hs @@ -4,10 +4,10 @@ module Utils.Time , timeToDay ) where -import Data.Time.Clock (UTCTime, getCurrentTime) -import Data.Time.LocalTime -import Data.Time.Calendar -import Data.Time.Calendar.WeekDate (toWeekDate) +import Data.Time.Calendar +import Data.Time.Calendar.WeekDate (toWeekDate) +import Data.Time.Clock (UTCTime, getCurrentTime) +import Data.Time.LocalTime belongToCurrentMonth :: UTCTime -> IO Bool belongToCurrentMonth time = do |