From 44a7cce93547336293745f3c750b046680195ffe Mon Sep 17 00:00:00 2001 From: Egor Tensin Date: Wed, 25 Jan 2017 07:12:39 +0300 Subject: add a dummy module for re-exports --- apps/PromptMessage.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'apps/PromptMessage.hs') 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 -- cgit v1.2.3