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(-)

(limited to 'lib/Postdelay/TimeSpec.hs')

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