X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=examples%2FHelloWorld.hs;h=dacd4c363604b4694430c6dcf68e91e0ea91d7b9;hp=71916f3203bf0e3bdf8a30073a74376a92550d9a;hb=07b641d6c0a4ba07a07ede4d746dfb08a5ed0730;hpb=0214f070b80791323430e21b53bcbe8a77b71b23

diff --git a/examples/HelloWorld.hs b/examples/HelloWorld.hs
index 71916f3..dacd4c3 100644
--- 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