mkAPIRequest' :: String -- API URL
              -> Int    -- API Version
              -> Method -> String -> [(String, String)] -> Request
mkAPIRequest' url ver m path query = req
  where
    rawReq = fromJust $ parseURL url
    req = rawReq { method = m
                 , pathComps = "" : show ver : splitBy (== '/') path
                 , qString = fromList query `union` qString rawReq
                 }


--
-- | User Stream API
--
mkAPIRequest' :: String -- API URL
              -> Int    -- API Version
              -> Method -> String -> [(String, String)] -> Request
mkAPIRequest' url ver m path query = req
  where
    rawReq = fromJust $ parseURL url
    req = rawReq { method = m
                 , pathComps = "" : show ver : splitBy (== '/') path
                 , qString = fromList query `union` qString rawReq
                 }


--
-- | User Stream API
--
mkAPIRequest' url ver m path query = req
  where
    rawReq = fromJust $ parseURL url
    req = rawReq { method = m
                 , pathComps = "" : show ver : splitBy (== '/') path
                 , qString = fromList query `union` qString rawReq
                 }


--
-- | User Stream API
--