diff options
| author | Egor Tensin <Egor.Tensin@gmail.com> | 2017-06-13 06:26:05 +0300 |
|---|---|---|
| committer | Egor Tensin <Egor.Tensin@gmail.com> | 2017-06-13 06:26:05 +0300 |
| commit | 32d9bd8ccdb48162853d9dfa6a81d0412d4fadf7 (patch) | |
| tree | fc3551d1849ab3204797c36926c89832f72374db /app/RemovePath.hs | |
| parent | addpath: detect expandable paths (diff) | |
| download | windows-env-32d9bd8ccdb48162853d9dfa6a81d0412d4fadf7.tar.gz windows-env-32d9bd8ccdb48162853d9dfa6a81d0412d4fadf7.zip | |
fix HLint warnings
Diffstat (limited to 'app/RemovePath.hs')
| -rw-r--r-- | app/RemovePath.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/app/RemovePath.hs b/app/RemovePath.hs index 56ea66f..779de6f 100644 --- a/app/RemovePath.hs +++ b/app/RemovePath.hs @@ -74,7 +74,7 @@ removePath options = runExceptT doRemovePath >>= either ioError return let expandable = WindowsEnv.valueExpandable oldValue let joined = WindowsEnv.valueString oldValue let split = WindowsEnv.pathSplit joined - let remaining = filter (flip notElem pathsToRemove) split + let remaining = filter (`notElem` pathsToRemove) split when (length split /= length remaining) $ do let newValue = WindowsEnv.Value expandable (WindowsEnv.pathJoin remaining) promptAndEngrave profile oldValue newValue |