diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/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.cabal b/conduit.cabal
--- a/conduit.cabal
+++ b/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/src/Data/Conduit/Combinators.hs b/src/Data/Conduit/Combinators.hs
--- a/src/Data/Conduit/Combinators.hs
+++ b/src/Data/Conduit/Combinators.hs
@@ -492,8 +492,8 @@
                -> ConduitT i S.ByteString m ()
 sourceIOHandle alloc = bracketP alloc IO.hClose sourceHandle
 
--- | 'sourceFile' specialized to 'ByteString' to help with type
--- inference.
+-- | Same as 'sourceFile'. The alternate name is a holdover from an older
+-- version, when 'sourceFile' was more polymorphic than it is today.
 --
 -- @since 1.3.0
 sourceFileBS :: MonadResource m => FilePath -> ConduitT i ByteString m ()
@@ -672,7 +672,7 @@
   -> 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'.