aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/apps/PromptMessage.hs
diff options
context:
space:
mode:
authorEgor Tensin <Egor.Tensin@gmail.com>2017-01-25 07:12:39 +0300
committerEgor Tensin <Egor.Tensin@gmail.com>2017-01-25 07:12:39 +0300
commit44a7cce93547336293745f3c750b046680195ffe (patch)
tree6c959ec6aff111c34f0fec92fa008a97c7bf4b1d /apps/PromptMessage.hs
parentrename namespace 'Windows' to 'WindowsEnv' (diff)
downloadwindows-env-44a7cce93547336293745f3c750b046680195ffe.tar.gz
windows-env-44a7cce93547336293745f3c750b046680195ffe.zip
add a dummy module for re-exports
Diffstat (limited to '')
-rw-r--r--apps/PromptMessage.hs14
1 files changed, 7 insertions, 7 deletions
diff --git a/apps/PromptMessage.hs b/apps/PromptMessage.hs
index f5afd71..8dd3ef5 100644
--- a/apps/PromptMessage.hs
+++ b/apps/PromptMessage.hs
@@ -13,27 +13,27 @@ module PromptMessage
import Text.Printf (printf)
-import qualified WindowsEnv.Environment as Env
+import qualified WindowsEnv
-oldNewMessage :: Env.Profile -> Env.VarName -> Env.VarValue -> Env.VarValue -> String
+oldNewMessage :: WindowsEnv.Profile -> WindowsEnv.VarName -> WindowsEnv.VarValue -> WindowsEnv.VarValue -> String
oldNewMessage profile name oldValue newValue =
descrMsg ++ oldValueMsg ++ newValueMsg
where
- profileKey = Env.profileKeyPath profile
+ profileKey = WindowsEnv.profileKeyPath profile
descrMsg = printf "Saving variable '%s' to '%s'...\n" name (show profileKey)
oldValueMsg = printf "\tOld value: %s\n" oldValue
newValueMsg = printf "\tNew value: %s\n" newValue
-newMessage :: Env.Profile -> Env.VarName -> Env.VarValue -> String
+newMessage :: WindowsEnv.Profile -> WindowsEnv.VarName -> WindowsEnv.VarValue -> String
newMessage profile name newValue =
descrMsg ++ newValueMsg
where
- profileKey = Env.profileKeyPath profile
+ profileKey = WindowsEnv.profileKeyPath profile
descrMsg = printf "Saving variable '%s' to '%s'...\n" name (show profileKey)
newValueMsg = printf "\tNew value: %s\n" newValue
-wipeMessage :: Env.Profile -> Env.VarName -> String
+wipeMessage :: WindowsEnv.Profile -> WindowsEnv.VarName -> String
wipeMessage profile name =
printf "Deleting variable '%s' from '%s'...\n" name (show profileKey)
where
- profileKey = Env.profileKeyPath profile
+ profileKey = WindowsEnv.profileKeyPath profile