diff --git a/snap-server.cabal b/snap-server.cabal
--- a/snap-server.cabal
+++ b/snap-server.cabal
@@ -1,5 +1,5 @@
 name:           snap-server
-version:        1.1.1.0
+version:        1.1.1.1
 synopsis:       A web server for the Snap Framework
 description:
   Snap is a simple and fast web development framework and server written in
diff --git a/src/Snap/Internal/Http/Server/Socket.hs b/src/Snap/Internal/Http/Server/Socket.hs
--- a/src/Snap/Internal/Http/Server/Socket.hs
+++ b/src/Snap/Internal/Http/Server/Socket.hs
@@ -175,11 +175,10 @@
   where
     acquire   = openFd fPath ReadOnly Nothing defaultFileFlags
 #if MIN_VERSION_network(3,0,0)
-    go fileFd = do sockFd <- Fd <$> fdSocket sock
+    go fileFd = do sockFd <- Fd `fmap` fdSocket sock
                    sendHeaders builder sockFd
                    sendFile sockFd fileFd offset nbytes
 #else
-    acquire   = openFd fPath ReadOnly Nothing defaultFileFlags
     go fileFd = do let sockFd = Fd $ fdSocket sock
                    sendHeaders builder sockFd
                    sendFile sockFd fileFd offset nbytes
diff --git a/test/Snap/Test/Common.hs b/test/Snap/Test/Common.hs
--- a/test/Snap/Test/Common.hs
+++ b/test/Snap/Test/Common.hs
@@ -22,7 +22,7 @@
 import           Data.Monoid                 (Monoid (mappend, mempty))
 import           Data.Typeable               (Typeable, typeOf)
 import           Network.Socket              (Socket)
-import qualified Network.Socket              as N
+import qualified Network.Socket              as N hiding (recv)
 import           System.Timeout              (timeout)
 import           Test.HUnit                  (assertFailure)
 import           Test.QuickCheck             (Arbitrary (arbitrary), choose)