From 1effa96a17bc8418e9a1844cd0bb65786e89b7a9 Mon Sep 17 00:00:00 2001
From: I-Al-Istannen <i-al-istannen@users.noreply.github.com>
Date: Wed, 1 Apr 2020 21:49:09 +0200
Subject: [PATCH] Fix "toDec" including the constructor name

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

diff --git a/src/Mima/Format.hs b/src/Mima/Format.hs
index ad3cb4b..133a391 100644
--- a/src/Mima/Format.hs
+++ b/src/Mima/Format.hs
@@ -42,7 +42,7 @@ toBin a = T.reverse $ T.pack $ toBin' a
     toBin' n = (if n `mod` 2 == 0 then '0' else '1') : toBin' (n `div` 2)
 
 toDec :: (Integral a, Show a ) => a -> T.Text
-toDec = T.pack . show
+toDec a = T.pack $ showInt a ""
 
 toHex :: (Integral a, Show a) => a -> T.Text
 toHex a = T.pack $ showHex a ""