showPadded :: Show a => a -> String
showPadded x = prefix ++ base
 where
  base   = show x
  prefix = case base of
             []  -> "00"
             [x] ->  "0"
             _   ->   ""

-- |Convert a number of bytes to a string represenation that uses a reasonable
-- unit to make the number human-readable.
showPadded :: Show a => a -> String
showPadded x = prefix ++ base
 where
  base   = show x
  prefix = case base of
             []  -> "00"
             [x] ->  "0"
             _   ->   ""

-- |Convert a number of bytes to a string represenation that uses a reasonable
-- unit to make the number human-readable.
showPadded x = prefix ++ base
 where
  base   = show x
  prefix = case base of
             []  -> "00"
             [x] ->  "0"
             _   ->   ""

-- |Convert a number of bytes to a string represenation that uses a reasonable
-- unit to make the number human-readable.