Like so counter = lazyRequestBody > > > (status400,) . PL.pack ||| (status200,) . encode . increment > > > fmap (s,v) -> > > > responseLBS s [(hContentType, hvApplicationJson)] v