X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=examples%2FHelloWorld.hs;h=468de85da37b3dfedad4940d8250248b230f8940;hp=d584009c61cd3f4411836e18f2d0e299741ded70;hb=41b0d69438ec76c5bd070348cf9912dc72f3ff44;hpb=175e14b3b144537644e65ca76f1fca5c56fd44e9

diff --git a/examples/HelloWorld.hs b/examples/HelloWorld.hs
index d584009..468de85 100644
--- a/examples/HelloWorld.hs
+++ b/examples/HelloWorld.hs
@@ -1,20 +1,5 @@
-import Control.Monad.Trans
-import Data.Maybe
 import Network
-import Network.HTTP.Lucu.Config
-import Network.HTTP.Lucu.ETag
-import Network.HTTP.Lucu.Httpd
-import Network.HTTP.Lucu.MIMEType
-import Network.HTTP.Lucu.MIMEType.Guess
-import Network.HTTP.Lucu.Parser
-import Network.HTTP.Lucu.Parser.Http
-import Network.HTTP.Lucu.Resource
-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
+import Network.HTTP.Lucu
 
 main :: IO ()
 main = let config    = defaultConfig { cnfServerPort = PortNumber 9999 }
@@ -28,8 +13,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