-import Network
import Network.HTTP.Lucu
main :: IO ()
-main = let config = defaultConfig { cnfServerPort = PortNumber 9999 }
+main = let config = defaultConfig { cnfServerPort = "9999" }
resources = mkResTree [ ( []
, helloWorld )
setContentType $ read "text/hello"
outputChunk "Hello, "
outputChunk "World!\n"
+ outputChunk =<< getRemoteAddr'
+
, resPost
= Just $ do str1 <- inputChunk 3
str2 <- inputChunk 3