Code clean-up (and close ditz/lucu-1)

[Lucu.git] / examples / HelloWorld.hs

diff --git a/examples/HelloWorld.hs b/examples/HelloWorld.hs
index 71916f3203bf0e3bdf8a30073a74376a92550d9a..dacd4c363604b4694430c6dcf68e91e0ea91d7b9 100644 (file)
--- a/examples/HelloWorld.hs
+++ b/examples/HelloWorld.hs
@@ -29,6 +29,8 @@ helloWorld
                       setContentType $ read "text/hello"
                       outputChunk "Hello, "
                       outputChunk "World!\n"
+                      outputChunk =<< getRemoteAddr'
+                      
       , resPost
           = Just $ do str1 <- inputChunk 3
                       str2 <- inputChunk 3