diff options
Diffstat (limited to 'apps/UnsetEnv.hs')
-rw-r--r-- | apps/UnsetEnv.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/apps/UnsetEnv.hs b/apps/UnsetEnv.hs index 65f0c91..f60503b 100644 --- a/apps/UnsetEnv.hs +++ b/apps/UnsetEnv.hs @@ -13,7 +13,7 @@ import System.IO.Error (ioError) import Options.Applicative -import qualified WindowsEnv.Environment as Env +import qualified WindowsEnv import Prompt import PromptMessage @@ -21,7 +21,7 @@ import PromptMessage data Options = Options { optYes :: Bool , optGlobal :: Bool - , optName :: Env.VarName + , optName :: WindowsEnv.VarName } deriving (Eq, Show) optionParser :: Parser Options @@ -53,14 +53,14 @@ unsetEnv options = runExceptT doUnsetEnv >>= either ioError return forAllUsers = optGlobal options profile - | forAllUsers = Env.AllUsers - | otherwise = Env.CurrentUser + | forAllUsers = WindowsEnv.AllUsers + | otherwise = WindowsEnv.CurrentUser skipPrompt = optYes options promptAnd | skipPrompt = withoutPrompt | otherwise = withPrompt $ wipeMessage profile varName - wipe = Env.wipe profile varName + wipe = WindowsEnv.wipe profile varName doUnsetEnv = void $ promptAnd wipe |