diff options
| author | Egor Tensin <Egor.Tensin@gmail.com> | 2016-08-20 15:54:43 +0300 |
|---|---|---|
| committer | Egor Tensin <Egor.Tensin@gmail.com> | 2016-08-20 15:54:43 +0300 |
| commit | 87ae152b71317b99bcbeeab80145ae1f3cf22d83 (patch) | |
| tree | 0ba746abfb44730f07cf7681f90e6340cfaa0a9b /apps/AddPath.hs | |
| parent | list_path: no weird symbols in output (diff) | |
| download | windows-env-87ae152b71317b99bcbeeab80145ae1f3cf22d83.tar.gz windows-env-87ae152b71317b99bcbeeab80145ae1f3cf22d83.zip | |
fix HLint warnings
Diffstat (limited to 'apps/AddPath.hs')
| -rw-r--r-- | apps/AddPath.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/apps/AddPath.hs b/apps/AddPath.hs index 1f80f70..1b27b84 100644 --- a/apps/AddPath.hs +++ b/apps/AddPath.hs @@ -53,7 +53,7 @@ addPath :: Options -> IO () addPath options = do oldValue <- Env.query profile varName let oldPaths = Env.pathSplit $ fromMaybe "" oldValue - let newPaths = union oldPaths pathsToAdd + let newPaths = oldPaths `union` pathsToAdd when (length oldPaths /= length newPaths) $ do let newValue = Env.pathJoin newPaths let promptAnd = if skipPrompt |