3 import Network.HTTP.Lucu.Config
4 import Network.HTTP.Lucu.Httpd
5 import Network.HTTP.Lucu.Resource
6 import Network.HTTP.Lucu.Response
8 import System.Posix.Signals
11 main = let config = defaultConfig { cnfServerPort = PortNumber 9999 }
12 resources = mkResTree [ ([], helloWorld) ]
14 do installHandler sigPIPE Ignore Nothing
15 runHttpd config resources
18 helloWorld :: ResourceDef
21 resUsesNativeThread = False
24 = Just $ do setHeader "Content-Type" "text/plain"
26 outputChunk "World!\n"
29 = Just $ do str1 <- inputChunk 3
32 setHeader "Content-Type" "text/plain"
33 output ("[" ++ str1 ++ " - " ++ str2 ++ "#" ++ str3 ++ "]")