Support a X-Timezone header

1 files changed, 5 insertions, 2 deletions

diff --git a/lib/Postdelay/TimeSpec.hs b/lib/Postdelay/TimeSpec.hs
index af8d801..676dabf 100644
--- a/lib/Postdelay/TimeSpec.hs
+++ b/lib/Postdelay/TimeSpec.hs
@@ -2,6 +2,7 @@
 
 module Postdelay.TimeSpec
   ( pTimeSpec
+  , pTimeZone
   , TimeCtx(..)
   ) where
 
@@ -308,7 +309,7 @@ pTimeBase = choice' [ do
     pMinute = ensure (< 60) =<< natural
     pSecond = decimal
 
-pTimeZone :: MonadTP m => ParsecT String () m (Either TimeZone TZ)
+pTimeZone :: MonadIO m => ParsecT String () m (Either TimeZone TZ)
 pTimeZone = choice' [ do
                         sgn <- choice [ id <$ char '+'
                                       , negate <$ char '-'
@@ -317,7 +318,9 @@ pTimeZone = choice' [ do
                         ms <- option 0 $ (\d u -> 10 * d + u) <$> digit <*> digit
                         return . Left . minutesToTimeZone $ hs * 60 + ms
                     , do
-                        n <- many1 $ letter <|> char '/'
+                        let
+                          ident = (++) <$> many1 alphaNum <*> option "" ((:) <$> oneOf "_-/.+" <*> ident)
+                        n <- ident
                         tz <- liftIO $ do
                           let
                             fbHandler :: IO a -> (IOException -> IO a)