X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=examples%2FHelloWorld.hs;h=3b17bf8bd08a08976fd79577628678bea1ada6eb;hb=1789cee;hp=7515347cfedfd2fd385f326f0dbf2d9941ab826a;hpb=fc4e0252eed3c9cb43c250ea7dd29ef5dffa6dad;p=Lucu.git diff --git a/examples/HelloWorld.hs b/examples/HelloWorld.hs index 7515347..3b17bf8 100644 --- a/examples/HelloWorld.hs +++ b/examples/HelloWorld.hs @@ -32,11 +32,10 @@ helloWorld outputChunk "Hello, " outputChunk "World!\n" outputChunk =≪ Lazy.pack <$> getRemoteAddr' - , resPost = Just $ do str1 ← inputChunk 3 str2 ← inputChunk 3 str3 ← inputChunk 3 setContentType $ parseMIMEType "text/hello" output ("[" ⊕ str1 ⊕ " - " ⊕ str2 ⊕ "#" ⊕ str3 ⊕ "]") - } \ No newline at end of file + }