Chunked input now works!

[Lucu.git] / examples / HelloWorld.hs

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