From f70dd6176af54b81f167d3963a8bf8f089f0fb8a Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 16 Feb 2017 19:23:37 +0100 Subject: Shuffle labels --- lib/Postdelay/TimeSpec.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/Postdelay') diff --git a/lib/Postdelay/TimeSpec.hs b/lib/Postdelay/TimeSpec.hs index 0736e80..4a32317 100644 --- a/lib/Postdelay/TimeSpec.hs +++ b/lib/Postdelay/TimeSpec.hs @@ -109,7 +109,7 @@ numericTimezone = review utcOffset <$> (sign <*> ((^+^) <$> hour <*> minute)) m TZ namedTimezone = do - n <- ident + n <- ident "Named timezone identifier" tz <- liftIO $ do let fbHandler :: IO a -> (IOException -> IO a) @@ -123,4 +123,4 @@ namedTimezone = do (Just tz) -> return tz where asciiAlphaNum = oneOf $ ['0'..'9'] ++ ['a'..'z'] ++ ['A'..'Z'] - ident = (++) <$> some asciiAlphaNum <*> option [] ((:) <$> oneOf "_-/.+" <*> ident) "Named timezone identifier" + ident = (++) <$> some asciiAlphaNum <*> option [] ((:) <$> oneOf "_-/.+" <*> ident) -- cgit v1.2.3