1 files 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)

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)) <?
109		109
110	namedTimezone :: (StringParser s m, MonadIO m) => m TZ	110	namedTimezone :: (StringParser s m, MonadIO m) => m TZ
111	namedTimezone = do	111	namedTimezone = do
112	n <- ident	112	n <- ident <?> "Named timezone identifier"
113	tz <- liftIO $ do	113	tz <- liftIO $ do
114	let	114	let
115	fbHandler :: IO a -> (IOException -> IO a)	115	fbHandler :: IO a -> (IOException -> IO a)
@@ -123,4 +123,4 @@ namedTimezone = do
123	(Just tz) -> return tz	123	(Just tz) -> return tz
124	where	124	where
125	asciiAlphaNum = oneOf $ ['0'..'9'] ++ ['a'..'z'] ++ ['A'..'Z']	125	asciiAlphaNum = oneOf $ ['0'..'9'] ++ ['a'..'z'] ++ ['A'..'Z']
126	ident = (++) <$> some asciiAlphaNum <> option [] ((:) <$> oneOf "_-/.+" <> ident) <?> "Named timezone identifier"	126	ident = (++) <$> some asciiAlphaNum <> option [] ((:) <$> oneOf "_-/.+" <> ident)