Fix compile failure in gzReadFilePS without HAVE_OLD_BYTESTRING
---------------------------------------------------------------
> Duncan Coutts <[EMAIL PROTECTED]>**20081112131210
> The previous #ifdef HAVE_OLD_BYTESTRING changes made it work for
> ghc-6.6 but fail for ghc-6.8+. This should work both ways round.
> ] hunk ./src/ByteStringUtils.hs 394
> - fmap (B.concat . BL.toChunks . GZ.decompressWith
> (GZ.defaultDecompressParams { GZ.decompressBufferSize = len }) .
> BL.fromChunks . (:[])) $
> + fmap (B.concat . BL.toChunks . GZ.decompressWith
> (GZ.defaultDecompressParams { GZ.decompressBufferSize = len })) $
> hunk ./src/ByteStringUtils.hs 399
> + fmap (BL.fromChunks . (:[])) $
>
Oops :-( [I had tested with GHC 6.6 in my defenese, but maybe I should
have tried a more recent old bytestring]
Applied, thanks!
Trivial style improvement
-------------------------
> Duncan Coutts <[EMAIL PROTECTED]>**20081112133456] hunk
> ./src/ByteStringUtils.hs 394
> - fmap (B.concat . BL.toChunks . GZ.decompressWith
> (GZ.defaultDecompressParams { GZ.decompressBufferSize = len })) $
> + let decompress = GZ.decompressWith GZ.defaultDecompressParams
> {
> + GZ.decompressBufferSize = len
> + }
> + fmap (B.concat . BL.toChunks . decompress) $
And thank-you for that as well... much easier to understand
--
Eric Kow <http://www.nltg.brighton.ac.uk/home/Eric.Kow>
PGP Key ID: 08AC04F9
signature.asc
Description: Digital signature
_______________________________________________ darcs-users mailing list [email protected] http://lists.osuosl.org/mailman/listinfo/darcs-users
