aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/app/AddPath.hs
diff options
context:
space:
mode:
authorEgor Tensin <Egor.Tensin@gmail.com>2017-06-11 05:37:27 +0300
committerEgor Tensin <Egor.Tensin@gmail.com>2017-06-11 05:37:27 +0300
commit742c541568f05d160784ace2024ee7256e3bd189 (patch)
tree1825605080aecab732ac59245dc762f4248945c7 /app/AddPath.hs
parentwindows-env.cabal: fix formatting (diff)
downloadwindows-env-742c541568f05d160784ace2024ee7256e3bd189.tar.gz
windows-env-742c541568f05d160784ace2024ee7256e3bd189.zip
refactoring
Diffstat (limited to 'app/AddPath.hs')
-rw-r--r--app/AddPath.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/app/AddPath.hs b/app/AddPath.hs
index 1993b4a..ff80b18 100644
--- a/app/AddPath.hs
+++ b/app/AddPath.hs
@@ -97,6 +97,6 @@ addPath options = runExceptT doAddPath >>= either ioError return
promptAndEngrave oldValue newValue = do
let promptAnd = if skipPrompt
then withoutPrompt
- else withPrompt $ oldNewMessage profile varName (show oldValue) (show newValue)
+ else withPrompt $ oldNewMessage profile varName oldValue newValue
let engrave = WindowsEnv.engrave profile varName newValue
void $ promptAnd engrave