X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-w3c.git;a=blobdiff_plain;f=Data%2FTime%2FW3C%2FParser%2FParsec.hs;h=6b960acc2d6d01bc5b1e21f66159e771e4f4b46a;hp=f73d68c24a98f93ebf419b721867bf1f1b22b04e;hb=6f8578a5f973cf4687dbea90c7a42c008925a2ec;hpb=3d738487d6fb1077d139fd689279a1ebd27a9fdc;ds=sidebyside

diff --git a/Data/Time/W3C/Parser/Parsec.hs b/Data/Time/W3C/Parser/Parsec.hs
index f73d68c..6b960ac 100644
--- 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'
-           return (n1 + 10 + n2)
+           return (n1 * 10 + n2)
 
 digit' :: (Stream s m Char, Num n) => ParsecT s u m n
 digit' = liftM fromC digit