Non-chunked input

[Lucu.git] / examples / HelloWorld.hs

diff --git a/examples/HelloWorld.hs b/examples/HelloWorld.hs
index 69d7a05bd60978cd9522f3c6e6b574a8031e5e3f..1d0e6aa1f78eb761f3f0b141ee3ce43691ac36bc 100644 (file)
--- 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