debugInput :: (a -> ByteString)function to convert stream elements to ByteString
-> ByteStringname of this debug stream, will be prepended to debug output
-> OutputStream ByteStringstream the debug info will be sent to
-> InputStream ainput stream
-> IO (InputStream a)