hasBody :: H.Status -> Request -> Bool
hasBody s req = sc /= 204
             && sc /= 304
             && sc >= 200
  where
    sc = H.statusCode s
    method = requestMethod req

----------------------------------------------------------------
hasBody :: H.Status -> Request -> Bool
hasBody s req = sc /= 204
             && sc /= 304
             && sc >= 200
  where
    sc = H.statusCode s
    method = requestMethod req

----------------------------------------------------------------
hasBody s req = sc /= 204
             && sc /= 304
             && sc >= 200
  where
    sc = H.statusCode s
    method = requestMethod req

----------------------------------------------------------------