From d34022421751d6e263cbf8c0cda13db5d92ec4c0 Mon Sep 17 00:00:00 2001
From: Emmanuel Blondel <emmanuel.blondel1@gmail.com>
Date: Thu, 20 Dec 2018 14:52:13 +0100
Subject: [PATCH] #42 remove tolower on ws

---
 R/GSServiceManager.R | 2 --
 1 file changed, 2 deletions(-)

diff --git a/R/GSServiceManager.R b/R/GSServiceManager.R
index 071b62e..9b404ef 100644
--- a/R/GSServiceManager.R
+++ b/R/GSServiceManager.R
@@ -104,7 +104,6 @@ GSServiceManager <- R6Class("GSServiceManager",
       restPath <- NULL
       service <- tolower(service)
       if(!is.null(ws)){
-        ws <- tolower(ws)
         self$INFO(sprintf("Fetching %s service settings in workspace '%s'", service, ws))
         restPath <- sprintf("/services/%s/workspaces/%s/settings.xml", service, ws)
       }else{
@@ -142,7 +141,6 @@ GSServiceManager <- R6Class("GSServiceManager",
       restPath <- NULL
       service <- tolower(service)
       if(!is.null(ws)){
-        ws <- tolower(ws)
         self$INFO(sprintf("Fetching %s service settings in workspace '%s'", service, ws))
         restPath <- sprintf("/services/%s/workspaces/%s/settings.xml", service, ws)
       }else{