aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/app/AddPath.hs
diff options
context:
space:
mode:
Diffstat (limited to 'app/AddPath.hs')
-rw-r--r--app/AddPath.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/app/AddPath.hs b/app/AddPath.hs
index df53326..fc8d5de 100644
--- a/app/AddPath.hs
+++ b/app/AddPath.hs
@@ -62,7 +62,7 @@ addPath :: Options -> IO ()
addPath options = runExceptT doAddPath >>= either ioError return
where
varName = optName options
- pathsToAdd = nub $ optPaths options
+ pathsToAdd = optPaths options
forAllUsers = optGlobal options
profile
@@ -83,7 +83,7 @@ addPath options = runExceptT doAddPath >>= either ioError return
doAddPath = do
oldValue <- WindowsEnv.query profile varName `catchE` emptyIfMissing
let oldPaths = WindowsEnv.pathSplit oldValue
- let newPaths = pathsToAdd \\ oldPaths
+ let newPaths = (nub pathsToAdd) \\ oldPaths
unless (null newPaths) $ do
let newValue = WindowsEnv.pathJoin $ append oldPaths newPaths
let promptAnd = if skipPrompt