snap-server 1.1.1.0 → 1.1.1.1

raw patch · 3 files changed

+3/−4 lines, 3 filesdep ~basedep ~clockdep ~network

Dependency ranges changed: base, clock, network

Files

• snap-server.cabal +1/−1
• src/Snap/Internal/Http/Server/Socket.hs +1/−2
• test/Snap/Test/Common.hs +1/−1

@@ -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

@@ -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

@@ -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)