Documentation

[Lucu.git] / examples / HelloWorld.hs

diff --git a/examples/HelloWorld.hs b/examples/HelloWorld.hs
index d584009c61cd3f4411836e18f2d0e299741ded70..928dab9fcfc976cab1360b1ceafde01f8b43c76a 100644 (file)
--- a/examples/HelloWorld.hs
+++ b/examples/HelloWorld.hs
@@ -13,7 +13,6 @@ import Network.HTTP.Lucu.Resource.Tree
 import Network.HTTP.Lucu.Response
 import Network.HTTP.Lucu.StaticFile
 import Network.URI
-import System.Posix.Signals
 import System.Time
 
 main :: IO ()
@@ -28,8 +27,7 @@ main = let config    = defaultConfig { cnfServerPort = PortNumber 9999 }
                                    , staticDir "/usr/include" )
                                  ]
        in
-         do installHandler sigPIPE Ignore Nothing
-            runHttpd config resources
+         runHttpd config resources
 
 
 helloWorld :: ResourceDef