diff --git a/conduit/ChangeLog.md b/conduit/ChangeLog.md index 6fdc84863..27ba9d4cd 100644 --- a/conduit/ChangeLog.md +++ b/conduit/ChangeLog.md @@ -1,3 +1,7 @@ +## 1.3.0.2 + +* Replace `ReadMode` with `WriteMode` in `withSinkFile` + ## 1.3.0.1 * Test suite compatibility with GHC 8.4.1 [#358](https://github.com/snoyberg/conduit/issues/358) diff --git a/conduit/conduit.cabal b/conduit/conduit.cabal index 79aa22459..cddd6feee 100644 --- a/conduit/conduit.cabal +++ b/conduit/conduit.cabal @@ -1,5 +1,5 @@ Name: conduit -Version: 1.3.0.1 +Version: 1.3.0.2 Synopsis: Streaming data processing library. description: `conduit` is a solution to the streaming data problem, allowing for production, diff --git a/conduit/src/Data/Conduit/Combinators.hs b/conduit/src/Data/Conduit/Combinators.hs index 06ebcf3f3..cefd36486 100644 --- a/conduit/src/Data/Conduit/Combinators.hs +++ b/conduit/src/Data/Conduit/Combinators.hs @@ -672,7 +672,7 @@ withSinkFile -> m a withSinkFile fp inner = withRunInIO $ \run -> - IO.withBinaryFile fp IO.ReadMode $ + IO.withBinaryFile fp IO.WriteMode $ run . inner . sinkHandle -- | Same as 'withSinkFile', but lets you use a 'BB.Builder'.