Use WriteMode in withSinkFile

snoyberg · Mar 18, 2018 · 87e4c64 · 87e4c64
1 parent b53400d
commit 87e4c64
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git 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
@@ -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
@@ -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'.