diff options
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 |