X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=examples%2FHelloWorld.hs;h=1d0e6aa1f78eb761f3f0b141ee3ce43691ac36bc;hp=69d7a05bd60978cd9522f3c6e6b574a8031e5e3f;hb=2d25d34513dc4f6bf62e53e2af2f4a4ef39cc6dc;hpb=e624f0db8c4610b36da9e4463a656e0cb8a104dd

diff --git a/examples/HelloWorld.hs b/examples/HelloWorld.hs
index 69d7a05..1d0e6aa 100644
--- a/examples/HelloWorld.hs
+++ b/examples/HelloWorld.hs
@@ -25,7 +25,12 @@ helloWorld
                       outputChunk "Hello, "
                       outputChunk "World!\n"
       , resHead   = Nothing
-      , resPost   = Nothing
+      , resPost
+          = Just $ do --str1 <- inputChunk 3
+                      --str2 <- inputChunk 3
+                      --str3 <- inputChunk 3
+                      setHeader "Content-Type" "text/plain"
+                      --output ("[" ++ str1 ++ " - " ++ str2 ++ "#" ++ str3 ++ "]")
       , resPut    = Nothing
       , resDelete = Nothing
       }
\ No newline at end of file