diff options
| author | Gregor Kleen <aethoago@141.li> | 2017-02-16 19:23:37 +0100 |
|---|---|---|
| committer | Gregor Kleen <aethoago@141.li> | 2017-02-16 19:23:37 +0100 |
| commit | f70dd6176af54b81f167d3963a8bf8f089f0fb8a (patch) | |
| tree | a8f18eda5a67ee04884f93949d0bec0ee09b2545 /lib/Postdelay | |
| parent | c2f005b53fe23b8fc711a5822c50bf856e99ce1e (diff) | |
| download | postdelay-f70dd6176af54b81f167d3963a8bf8f089f0fb8a.tar postdelay-f70dd6176af54b81f167d3963a8bf8f089f0fb8a.tar.gz postdelay-f70dd6176af54b81f167d3963a8bf8f089f0fb8a.tar.bz2 postdelay-f70dd6176af54b81f167d3963a8bf8f089f0fb8a.tar.xz postdelay-f70dd6176af54b81f167d3963a8bf8f089f0fb8a.zip | |
Shuffle labels
Diffstat (limited to 'lib/Postdelay')
| -rw-r--r-- | lib/Postdelay/TimeSpec.hs | 4 |
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)) <? | |||
| 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) |