Skip to content

H
haskell-gargantext
Commit 28288c61 authored by Mael NICOLAS's avatar Mael NICOLAS
Browse files
Options

no unsafeIO

parent 71fb5545
Show whitespace changes
Inline Side-by-side
Showing with 3 additions and 3 deletions
src/Gargantext/Parsers/Date.hs
View file @ 28288c61
...@@ -145,7 +145,7 @@ parseTimeZone = do ...@@ -145,7 +145,7 @@ parseTimeZone = do
m <- wrapDST =<< (many1 $ anyChar) m <- wrapDST =<< (many1 $ anyChar)
let (TimeZone _ s n) = unsafePerformIO getCurrentTimeZone let (TimeZone _ s n) = unsafePerformIO getCurrentTimeZone
let timeInMinute = if sign == '+' then h * 60 + m else -h * 60 - m let timeInMinute = if sign == '+' then h * 60 + m else -h * 60 - m
in return $ TimeZone timeInMinute s n in return $ TimeZone timeInMinute False "CET"
-- | Parser which use parseGregorian, parseTimeOfDay and parseTimeZone to create a ZonedTime -- | Parser which use parseGregorian, parseTimeOfDay and parseTimeZone to create a ZonedTime
parseZonedTime :: Parser ZonedTime parseZonedTime :: Parser ZonedTime
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment