test units
[time-w3c.git] / Data / Time / W3C / Parser / Parsec.hs
index f73d68c24a98f93ebf419b721867bf1f1b22b04e..6b960acc2d6d01bc5b1e21f66159e771e4f4b46a 100644 (file)
@@ -117,7 +117,7 @@ read4 = do n1 <- digit'
 read2 :: (Stream s m Char, Num n) => ParsecT s u m n
 read2 = do n1 <- digit'
            n2 <- digit'
-           return (n1 + 10 + n2)
+           return (n1 * 10 + n2)
 
 digit' :: (Stream s m Char, Num n) => ParsecT s u m n
 digit' = liftM fromC digit