HPath.IO: small cleanup

src/HPath/IO.hs

@@ -394,12 +394,12 @@ _copyFile :: [SPDF.Flags]
 _copyFile sflags dflags from to
   =
   -- TODO: add sendfile support
-    withAbsPath to $ \to' -> withAbsPath from $ \from' ->
-      void $ fallbackCopy from' to'
+  void $ readWriteCopy (fromAbs from) (fromAbs to)
   where
     -- low-level copy operation utilizing read(2)/write(2)
     -- in case `sendFileCopy` fails/is unsupported
-    fallbackCopy source dest =
+    readWriteCopy :: ByteString -> ByteString -> IO Int
+    readWriteCopy source dest =
       bracket (SPDT.openFd source SPI.ReadOnly sflags Nothing)
               SPI.closeFd
               $ \sfd -> do