From e93ff1fc74eaaece229d33a0299c9881b595e6ec Mon Sep 17 00:00:00 2001
From: Joscha <joscha@plugh.de>
Date: Wed, 20 Nov 2019 20:44:45 +0000
Subject: [PATCH] Fix number parsing

---
 src/Mima/Parse/Common.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Mima/Parse/Common.hs b/src/Mima/Parse/Common.hs
index 5dc09e0..3943306 100644
--- a/src/Mima/Parse/Common.hs
+++ b/src/Mima/Parse/Common.hs
@@ -119,7 +119,7 @@ hexDigit = label "hexadecimal digit" $ token (helper . toLower) Set.empty
     helper _   = Nothing
 
 accumulateToBase :: (Integral a) => a -> [a] -> a
-accumulateToBase base = helper
+accumulateToBase base = helper . reverse
   where
     helper []     = 0
     helper [d]    = d