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/UnsetEnv.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/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 |