From f70dd6176af54b81f167d3963a8bf8f089f0fb8a Mon Sep 17 00:00:00 2001
From: Gregor Kleen <aethoago@141.li>
Date: Thu, 16 Feb 2017 19:23:37 +0100
Subject: Shuffle labels
---
lib/Postdelay/TimeSpec.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
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)) <?
namedTimezone :: (StringParser s m, MonadIO m) => 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