chunked output

[Lucu.git] / examples / HelloWorld.hs

diff --git a/examples/HelloWorld.hs b/examples/HelloWorld.hs
index d5b8d701318b5a5bccb7e7e275a3fab108c29733..fe5b543e4f34bbfa20bb4f95439c2aabe580bbb0 100644 (file)
--- a/examples/HelloWorld.hs
+++ b/examples/HelloWorld.hs
@@ -2,9 +2,11 @@ import Network
 import Network.HTTP.Lucu.Config
 import Network.HTTP.Lucu.Httpd
 import Network.HTTP.Lucu.Resource
+import System.Posix.Signals
 
 main :: IO ()
 main = let config    = defaultConfig { cnfServerPort = PortNumber 9999 }
            resources = mkResTree []
        in
-         runHttpd config resources
\ No newline at end of file
+         do installHandler sigPIPE Ignore Nothing
+            runHttpd config resources
\ No newline at end of file