propHandleResponse :: TestBotResponse  -> Bool
propHandleResponse resp =
  let texty = T.unwords $ handleResponse $ getTestBotResponse resp
      contentType' = contentType $ getTestBotResponse resp
  in if (any (== contentType') ["text/html", "text/html; charset=utf-8"])
        then (T.isInfixOf "Title: " texty) == True
        else (T.isInfixOf "Content-Type: " texty) == True
propHandleResponse :: TestBotResponse  -> Bool
propHandleResponse resp =
  let texty = T.unwords $ handleResponse $ getTestBotResponse resp
      contentType' = contentType $ getTestBotResponse resp
  in if (any (== contentType') ["text/html", "text/html; charset=utf-8"])
        then (T.isInfixOf "Title: " texty) == True
        else (T.isInfixOf "Content-Type: " texty) == True
propHandleResponse resp =
  let texty = T.unwords $ handleResponse $ getTestBotResponse resp
      contentType' = contentType $ getTestBotResponse resp
  in if (any (== contentType') ["text/html", "text/html; charset=utf-8"])
        then (T.isInfixOf "Title: " texty) == True
        else (T.isInfixOf "Content-Type: " texty) == True