diff --git a/Source/IO.hs b/Source/IO.hs
--- a/Source/IO.hs
+++ b/Source/IO.hs
@@ -23,7 +23,8 @@
     MonadIO,
     liftIO,
     PIO.hSeek,
-    PIO.SeekMode(..)
+    PIO.SeekMode(..),
+    file
     ) where
 
 import Lawless
@@ -66,3 +67,7 @@
             liftIO $ D.removeFile $ tf ^. tfPath
     in
         managed $ bracket open close
+
+file ∷ AbsRelFile → PIO.IOMode → Managed PIO.Handle
+file pth m = managed $ \fh → do
+    liftIO $ PIO.withBinaryFile pth m fh
diff --git a/liblawless.cabal b/liblawless.cabal
--- a/liblawless.cabal
+++ b/liblawless.cabal
@@ -1,5 +1,5 @@
 name:                liblawless
-version:             0.17.0
+version:             0.17.1
 synopsis:            Prelude based on protolude for GHC 8 and beyond.
 license:             GPL-3
 license-file:        LICENSE