when (reqMethod req == HEAD || not canHaveBody)
$ writeTVar (itrWillDiscardBody itr) True
readHeader :: Interaction -> String -> STM (Maybe String)
readHeader itr name
when (reqMethod req == HEAD || not canHaveBody)
$ writeTVar (itrWillDiscardBody itr) True
readHeader :: Interaction -> String -> STM (Maybe String)
readHeader itr name