afterHdrs
  :: FlowChart (HaltT TestCrank) Status
  -> Resource TestCrank
  -> Req
  -> (Decision', HeadersMap)
afterHdrs s r rq = case after s r rq of
  (d, rd) -> (d, _reqDataRespHeaders rd)
afterHdrs
  :: FlowChart (HaltT TestCrank) Status
  -> Resource TestCrank
  -> Req
  -> (Decision', HeadersMap)
afterHdrs s r rq = case after s r rq of
  (d, rd) -> (d, _reqDataRespHeaders rd)
afterHdrs s r rq = case after s r rq of
  (d, rd) -> (d, _reqDataRespHeaders rd)