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