X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=examples%2FHelloWorld.hs;h=42ccb90ff639c88479a5c241568c40675244be42;hp=1d0e6aa1f78eb761f3f0b141ee3ce43691ac36bc;hb=cd1b58b84ff354e3fc2a7d2c8fd548a7b59fe138;hpb=2d25d34513dc4f6bf62e53e2af2f4a4ef39cc6dc diff --git a/examples/HelloWorld.hs b/examples/HelloWorld.hs index 1d0e6aa..42ccb90 100644 --- 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