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/SetEnv.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 '')
| -rw-r--r-- | apps/SetEnv.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/apps/SetEnv.hs b/apps/SetEnv.hs index 6cf5d29..87d7812 100644 --- a/apps/SetEnv.hs +++ b/apps/SetEnv.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,8 +21,8 @@ import PromptMessage data Options = Options { optYes :: Bool , optGlobal :: Bool - , optName :: Env.VarName - , optValue :: Env.VarValue + , optName :: WindowsEnv.VarName + , optValue :: WindowsEnv.VarValue } deriving (Eq, Show) optionParser :: Parser Options @@ -59,14 +59,14 @@ setEnv options = runExceptT doSetEnv >>= 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 $ newMessage profile varName varValue - engrave = Env.engraveForce profile varName varValue + engrave = WindowsEnv.engraveForce profile varName varValue doSetEnv = void $ promptAnd engrave |