sendGETwH :: String -> [Header] -> IO (Response BL.ByteString)
sendGETwH url hdr = do
    manager <- newManager defaultManagerSettings
    request <- parseRequest url
    let request' = request { requestHeaders = hdr }
    response <- httpLbs request' manager
    return response
sendGETwH :: String -> [Header] -> IO (Response BL.ByteString)
sendGETwH url hdr = do
    manager <- newManager defaultManagerSettings
    request <- parseRequest url
    let request' = request { requestHeaders = hdr }
    response <- httpLbs request' manager
    return response
sendGETwH url hdr = do
    manager <- newManager defaultManagerSettings
    request <- parseRequest url
    let request' = request { requestHeaders = hdr }
    response <- httpLbs request' manager
    return response