From 87e4c64300054014f1d3db1cbae4d67d5ca35292 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 18 Mar 2018 18:27:44 +0200
Subject: [PATCH] Use WriteMode in withSinkFile

---
 conduit/ChangeLog.md                    | 4 ++++
 conduit/conduit.cabal                   | 2 +-
 conduit/src/Data/Conduit/Combinators.hs | 2 +-
 3 files changed, 6 insertions(+), 2 deletions(-)

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'.