Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Merge pull request #4 from michaelt/master

V = 5
  • Loading branch information...
commit 258b105ac33fcac5d6391ad4e6391e211d506d47 2 parents 28efbe4 + e41ea44
@jgm authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  Text/Pandoc2/Shared.hs
View
2  Text/Pandoc2/Shared.hs
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.