- = 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
+ = Just $ do str1 ← getChunk 3
+ str2 ← getChunk 3
+ str3 ← getChunk 3
+ setContentType [mimeType| text/hello |]
+ putChunks $ Lazy.fromChunks ["[", str1, " - ", str2, "#", str3, "]"]
+ }