diff options
author | Egor Tensin <Egor.Tensin@gmail.com> | 2017-01-25 07:12:39 +0300 |
---|---|---|
committer | Egor Tensin <Egor.Tensin@gmail.com> | 2017-01-25 07:12:39 +0300 |
commit | 44a7cce93547336293745f3c750b046680195ffe (patch) | |
tree | 6c959ec6aff111c34f0fec92fa008a97c7bf4b1d /apps/PromptMessage.hs | |
parent | rename namespace 'Windows' to 'WindowsEnv' (diff) | |
download | windows-env-44a7cce93547336293745f3c750b046680195ffe.tar.gz windows-env-44a7cce93547336293745f3c750b046680195ffe.zip |
add a dummy module for re-exports
Diffstat (limited to 'apps/PromptMessage.hs')
-rw-r--r-- | apps/PromptMessage.hs | 14 |
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 |