1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Postdelay/TimeSpec.hs b/lib/Postdelay/TimeSpec.hs
index 9361057..454f704 100644
--- a/lib/Postdelay/TimeSpec.hs
+++ b/lib/Postdelay/TimeSpec.hs
@@ -145,8 +145,8 @@ offsets reqSgn = fmap (foldMap . review $ prioEndo' Offset) $ (:) <$> offset req
    asOffset :: Time -> Endo LocalTime
    asOffset by = Endo $ flexDT.seconds' %~ (^+^ by)
    offset :: Bool -> m (Endo LocalTime)
-    offset sgnReq@(bool optSigned signed -> sgn)
+    offset (bool (optSigned, "Time offset") (signed, "Signed time offset") -> (sgn, desc))
-      = asOffset <$> lexeme (sgn timeLength) <?> if sgnReq then "Signed time offset" else "Time offset"
+      = asOffset <$> lexeme (sgn timeLength) <?> desc
 timeZone :: (StringParser s m, MonadIO m) => m (Either TimeZone TZ)
 timeZone = label "Timezone" $ (Left <$> numericTimezone) <|> (Right <$> namedTimezone)

diff --git a/lib/Postdelay/TimeSpec.hs b/lib/Postdelay/TimeSpec.hs index 9361057..454f704 100644 --- a/lib/Postdelay/TimeSpec.hs +++ b/lib/Postdelay/TimeSpec.hs
@@ -145,8 +145,8 @@ offsets reqSgn = fmap (foldMap . review $ prioEndo' Offset) $ (:) <$> offset req
145	asOffset :: Time -> Endo LocalTime	145	asOffset :: Time -> Endo LocalTime
146	asOffset by = Endo $ flexDT.seconds' %~ (^+^ by)	146	asOffset by = Endo $ flexDT.seconds' %~ (^+^ by)
147	offset :: Bool -> m (Endo LocalTime)	147	offset :: Bool -> m (Endo LocalTime)
148	offset sgnReq@(bool optSigned signed -> sgn)	148	offset (bool (optSigned, "Time offset") (signed, "Signed time offset") -> (sgn, desc))
149	= asOffset <$> lexeme (sgn timeLength) <?> if sgnReq then "Signed time offset" else "Time offset"	149	= asOffset <$> lexeme (sgn timeLength) <?> desc
150		150
151	timeZone :: (StringParser s m, MonadIO m) => m (Either TimeZone TZ)	151	timeZone :: (StringParser s m, MonadIO m) => m (Either TimeZone TZ)
152	timeZone = label "Timezone" $ (Left <$> numericTimezone) <\|> (Right <$> namedTimezone)	152	timeZone = label "Timezone" $ (Left <$> numericTimezone) <\|> (Right <$> namedTimezone)