Cabal

[Lucu.git] / examples / HelloWorld.hs

diff --git a/examples/HelloWorld.hs b/examples/HelloWorld.hs
index d584009c61cd3f4411836e18f2d0e299741ded70..468de85da37b3dfedad4940d8250248b230f8940 100644 (file)
--- 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