X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=examples%2FHelloWorld.hs;h=fe5b543e4f34bbfa20bb4f95439c2aabe580bbb0;hb=f812da5cfe314ab2a29f5e68aac1a7a7b39240d6;hp=d5b8d701318b5a5bccb7e7e275a3fab108c29733;hpb=a9e9f50818285bf66cd64e5a248175eecb8e1fea;p=Lucu.git

diff --git a/examples/HelloWorld.hs b/examples/HelloWorld.hs
index d5b8d70..fe5b543 100644
--- 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