test units

[time-w3c.git] / Data / Time / W3C / Parser / Parsec.hs

diff --git a/Data/Time/W3C/Parser/Parsec.hs b/Data/Time/W3C/Parser/Parsec.hs
index f73d68c24a98f93ebf419b721867bf1f1b22b04e..6b960acc2d6d01bc5b1e21f66159e771e4f4b46a 100644 (file)
--- a/Data/Time/W3C/Parser/Parsec.hs
+++ b/Data/Time/W3C/Parser/Parsec.hs
@@ -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'
 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
 
 digit' :: (Stream s m Char, Num n) => ParsecT s u m n
 digit' = liftM fromC digit