Chunked input now works!

[Lucu.git] / examples / HelloWorld.hs

diff --git a/examples/HelloWorld.hs b/examples/HelloWorld.hs
index 69d7a05bd60978cd9522f3c6e6b574a8031e5e3f..42ccb90ff639c88479a5c241568c40675244be42 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