@@ -57,7 +57,8 @@ debugByteString b = B.foldr mapfun [] b upperFour w = fromIntegral w `shiftR` 4 lowerFour w = fromIntegral w .&. 0xF charToHex c = toUpper (intToDigit c) - mapfun w str = "0x" ++ (wordToHex w) ++ "(" ++ (show w) ++ ") " ++ str + mapfun w str = "0x" ++ (wordToHex w) ++ "(" ++ (pad w) ++ (show w) ++ ") " ++ str + pad i = if i < 10 then " " else (if i < 100 then " " else "") -- | Helper that changes the result type of a function src/NXT/Helpers.hs d700ae979a1f469c36f8bea15e1e71c0e68a0e90 Jan Varwig jan@varwig.org http://github.com/janv/haskell-nxt/commit/c08209beb4a15098d850676296c7824c9ced6774 c08209beb4a15098d850676296c7824c9ced6774 2008-10-05T14:37:54-07:00 2008-10-05T13:56:09-07:00 Num padding in debugByteString 558282d720bf6630d0ad111e013856e0452c23aa Jan Varwig jan@varwig.org