fix typo (exhaused -> exhausted)

Author: chessai

Streaming/Zip.hs

@@ -84,7 +84,7 @@ decompress' wbits p0 = go p0 =<< liftIO (Z.initInflate wbits)
                else return $ Left (chunk leftover >> p')
 {-# INLINABLE decompress' #-}
 
--- | Keep decompressing a compressed bytestream until exhaused.
+-- | Keep decompressing a compressed bytestream until exhausted.
 decompressAll :: MonadIO m => Z.WindowBits -> ByteString m r -> ByteString m r
 decompressAll w bs = decompress' w bs >>= go
   where