Permalink
Browse files

roman V == 5, not 10

  • Loading branch information...
1 parent 28efbe4 commit e41ea44209090cd9ed4e0345218eb63ee7dc46c3 @michaelt michaelt committed Nov 10, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 Text/Pandoc2/Shared.hs
View
@@ -158,7 +158,7 @@ fromRoman t =
go "X" xs = go "IX" xs
go "IX" ('I':'X':xs) = fmap (+ 9) $ go "V" xs
go "IX" xs = go "V" xs
- go "V" ('V':xs) = fmap (+ 10) $ go "V" xs
+ go "V" ('V':xs) = fmap (+ 5) $ go "V" xs
go "V" xs = go "IV" xs
go "IV" ('I':'V':_) = Just 4
go "IV" xs = go "I" xs

0 comments on commit e41ea44

Please sign in to comment.