diff options
Diffstat (limited to 'apps/RemovePath.hs')
| -rw-r--r-- | apps/RemovePath.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/apps/RemovePath.hs b/apps/RemovePath.hs index 8c2bcef..21b4ac6 100644 --- a/apps/RemovePath.hs +++ b/apps/RemovePath.hs @@ -64,9 +64,9 @@ removePath options = do let newPaths = oldPaths \\ pathsToRemove when (length oldPaths /= length newPaths) $ do let newValue = Environment.pathJoin newPaths - engrave env varName newValue + engrave env newValue skipPrompt = optYes options - engrave - | skipPrompt = Environment.engrave - | otherwise = Environment.engraveWithPrompt + engrave env value = if skipPrompt + then Environment.engrave env varName value + else Environment.engravePrompt env varName value >> return () |