showContentLength :: Int -> String
showContentLength num = map chr . map (.&. 0xff) $ [shiftR num 8, num]
showContentLength :: Int -> String
showContentLength num = map chr . map (.&. 0xff) $ [shiftR num 8, num]
showContentLength num = map chr . map (.&. 0xff) $ [shiftR num 8, num]