Garmelon/mima-tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix number parsing

Browse source
This commit is contained in:
Joscha 2019-11-20 20:44:45 +00:00
parent 42d52055d1
commit e93ff1fc74
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Mima/Parse/Common.hs
View file

@ -119,7 +119,7 @@ hexDigit = label "hexadecimal digit" $ token (helper . toLower) Set.empty
helper _ = Nothing helper _ = Nothing
accumulateToBase :: (Integral a) => a -> [a] -> a accumulateToBase :: (Integral a) => a -> [a] -> a
accumulateToBase base = helper accumulateToBase base = helper . reverse
where where
helper [] = 0 helper [] = 0
helper [d] = d helper [d] = d