diff --git a/sendfile.cabal b/sendfile.cabal
--- a/sendfile.cabal
+++ b/sendfile.cabal
@@ -1,5 +1,5 @@
 name:          sendfile
-version:       0.7.11
+version:       0.7.11.1
 stability:     provisional
 synopsis:      A portable sendfile library
 description:   A library which exposes zero-copy sendfile functionality in a portable way. If a platform does not support sendfile, a fallback implementation in haskell is provided.
diff --git a/src/Network/Socket/SendFile/Internal.hs b/src/Network/Socket/SendFile/Internal.hs
--- a/src/Network/Socket/SendFile/Internal.hs
+++ b/src/Network/Socket/SendFile/Internal.hs
@@ -78,7 +78,7 @@
 sendFile'' :: Socket -> Handle -> Integer -> Integer -> IO ()
 sendFile'' outs inh off count =
 #if MIN_VERSION_network(3,0,0)
-    do out_fd <- Fd <$> (fdSocket outs)
+    do out_fd <- fmap Fd (fdSocket outs)
 #else
     do let out_fd = Fd (fdSocket outs)
 #endif
@@ -89,7 +89,7 @@
 sendFileIterWith'' :: (IO Iter -> IO a) -> Socket -> Handle -> Integer -> Integer -> Integer -> IO a
 sendFileIterWith'' stepper outs inp blockSize off count =
 #if MIN_VERSION_network(3,0,0)
-    do out_fd <- Fd <$> (fdSocket outs)
+    do out_fd <- fmap Fd (fdSocket outs)
 #else
     do let out_fd = Fd (fdSocket outs)
 #endif