@@ -71,13 +71,13 @@ timeOfDay = do
7171-- long.
7272seconds :: Parser Pico
7373seconds = do
74− w <- twoDigits
74+ real <- twoDigits
7575 mc <- peekChar
7676 case mc of
7777 Just '.' -> do
78− (t,f :: Int64) <- anyChar *> match decimal
79− return $! fromIntegral w + fromIntegral f / 10 ^ T.length t
80− _ -> return $! fromIntegral w
78+ (t, frac :: Int64) <- anyChar *> match decimal
79+ return $! fromIntegral real + fromIntegral frac / 10 ^ T.length t
80+ _ -> return $! fromIntegral real
8181
8282-- | Parse a time zone, and return 'Nothing' if the offset from UTC is
8383-- zero. (This makes some speedups possible.)