Permalink
Browse files

Merge pull request #4 from michaelt/master

V = 5
  • Loading branch information...
2 parents 28efbe4 + e41ea44 commit 258b105ac33fcac5d6391ad4e6391e211d506d47 @jgm 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 258b105

Please sign in to comment.