- = ResourceDef {
- resUsesNativeThread = False
- , resIsGreedy = False
- , resGet
- = Just $ do setHeader "Content-Type" "text/plain"
- outputChunk "Hello, "
- outputChunk "World!\n"
- , resHead = Nothing
- , resPost = Nothing
- , resPut = Nothing
- , resDelete = Nothing
- }
\ No newline at end of file
+ = emptyResource {
+ resGet
+ = Just $ do setContentType [mimeType| text/hello |]
+ putChunk "Hello, "
+ putChunk "World!\n"
+ putChunks =≪ Lazy.pack <$> getRemoteAddr'
+ , resPost
+ = Just $ do str1 ← getChunk 3
+ str2 ← getChunk 3
+ str3 ← getChunk 3
+ setContentType [mimeType| text/hello |]
+ putChunks $ Lazy.fromChunks ["[", str1, " - ", str2, "#", str3, "]"]
+ }