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

Fix "toDec" including the constructor name

Browse source
This commit is contained in:
I-Al-Istannen 2020-04-01 21:49:09 +02:00
parent 9e544a64f3
commit 1effa96a17
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Mima/Format.hs
View file

@ -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) toBin' n = (if n `mod` 2 == 0 then '0' else '1') : toBin' (n `div` 2)
toDec :: (Integral a, Show a ) => a -> T.Text 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 :: (Integral a, Show a) => a -> T.Text
toHex a = T.pack $ showHex a "" toHex a = T.pack $ showHex a ""