makeURL :: Keys -> String -> GetData -> String
makeURL (Keys a _) resource g = urlBase ++ resource ++ "/appkey," ++ a ++ "," ++ getParams
    where
        getParams = L.intercalate "," $ map deTuple g
        deTuple (a, b) = a ++ "," ++ b
makeURL :: Keys -> String -> GetData -> String
makeURL (Keys a _) resource g = urlBase ++ resource ++ "/appkey," ++ a ++ "," ++ getParams
    where
        getParams = L.intercalate "," $ map deTuple g
        deTuple (a, b) = a ++ "," ++ b
makeURL (Keys a _) resource g = urlBase ++ resource ++ "/appkey," ++ a ++ "," ++ getParams
    where
        getParams = L.intercalate "," $ map deTuple g
        deTuple (a, b) = a ++ "," ++ b