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