happstack-server 7.0.6 → 7.0.7

raw patch · 3 files changed

+5/−2 lines, 3 files

Files

• happstack-server.cabal +1/−1
• src/Happstack/Server.hs +3/−1
• src/Happstack/Server/SimpleHTTP.hs +1/−0

@@ -1,5 +1,5 @@ Name:                happstack-server-Version:             7.0.6+Version:             7.0.7 Synopsis:            Web related tools and services. Description:         Happstack Server provides an HTTP server and a rich set of functions for routing requests, handling query parameters, generating responses, working with cookies, serving files, and more. For in-depth documentation see the Happstack Crash Course <http://happstack.com/docs/crashcourse/index.html> License:             BSD3

@@ -79,7 +79,9 @@                                          , simpleHTTPWithSocket'                                          , bindPort                                          , bindIPv4-                                         , parseConfig)+                                         , parseConfig+                                         , waitForTermination+                                         ) import Happstack.Server.FileServe import Happstack.Server.Monads import Happstack.Server.Auth

@@ -227,6 +227,7 @@          istty <- queryTerminal stdInput          mv <- newEmptyMVar          void $ installHandler softwareTermination (CatchOnce (putMVar mv ())) Nothing+         void $ installHandler lostConnection      (CatchOnce (putMVar mv ())) Nothing          case istty of            True  -> void $ installHandler keyboardSignal (CatchOnce (putMVar mv ())) Nothing            False -> return ()