I find this hard to read. I would rather write
``` haskell
chunkedRequestBody chunks = RequestBodyStreamChunked $ \ cont -> do
   ...
```