Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Silence some warnings

  • Loading branch information...
commit 503e33b7e7e14abe9e5c510a5bebaf095ba84df8 1 parent a15183f
Johan Tibell authored
Showing with 6 additions and 6 deletions.
  1. +6 −6 Hyena/Server.hs
View
12 Hyena/Server.hs
@@ -111,7 +111,7 @@ serve application = do
serveWithConfig :: Config -> Application -> IO ()
serveWithConfig conf application = do
#ifndef mingw32_HOST_OS
- installHandler sigPIPE Ignore Nothing
+ _ <- installHandler sigPIPE Ignore Nothing
#endif
when (daemonize conf) $ do
hPutStrLn stderr "Daemonized mode not supported at the moment."
@@ -162,11 +162,11 @@ serve' application = do
acceptConnections :: Application -> Socket -> Server ()
acceptConnections application serverSock = do
(sock, SockAddrInet _ haddr) <- io $ accept serverSock
- forkServer ((talk sock haddr application `finallyServer`
- (io $ sClose sock))
- `catchServer`
- (\e -> do logger <- asks errorLogger
- io $ logError logger $ show e))
+ _ <- forkServer ((talk sock haddr application `finallyServer`
+ (io $ sClose sock))
+ `catchServer`
+ (\e -> do logger <- asks errorLogger
+ io $ logError logger $ show e))
acceptConnections application serverSock
-- | Read the client input, parse the request, run the application,
Please sign in to comment.
Something went wrong with that request. Please try again.