From ee7639c1c71f453d0d312dc072ecdccc9e1758ca Mon Sep 17 00:00:00 2001 From: Joscha Date: Tue, 19 Nov 2019 16:03:36 +0000 Subject: [PATCH] Fix formatting of numbers into blocks --- src/Mima/Format/Common.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Mima/Format/Common.hs b/src/Mima/Format/Common.hs index fb6cab7..408ea82 100644 --- a/src/Mima/Format/Common.hs +++ b/src/Mima/Format/Common.hs @@ -33,7 +33,7 @@ toHex :: (Integral a, Show a) => a -> T.Text toHex a = T.pack $ showHex a "" chunkedBy :: T.Text -> Int -> T.Text -> T.Text -chunkedBy sep n = T.intercalate sep . T.chunksOf n +chunkedBy sep n = T.reverse . T.intercalate sep . T.chunksOf n . T.reverse chunkyBin :: T.Text -> T.Text chunkyBin = chunkedBy " " 4