buffer_to_string :: Buffer -> IO String
buffer_to_string  = return . map (toEnum . fromEnum) . S.unpack
buffer_to_string :: Buffer -> IO String
buffer_to_string  = return . map (toEnum . fromEnum) . S.unpack
buffer_to_string  = return . map (toEnum . fromEnum) . S.unpack