put modules to 'Windows'

1 files changed, 7 insertions, 8 deletions

diff --git a/apps/SetEnv.hs b/apps/SetEnv.hs
index 0b95176..a48fbe6 100644
--- a/apps/SetEnv.hs
+++ b/apps/SetEnv.hs
@@ -8,17 +8,16 @@ module Main (main) where
 
 import Control.Monad (void)
 
-import Options.Applicative hiding (value)
-
-import qualified Environment
+import           Options.Applicative
+import qualified Windows.Environment as Env
 
 import qualified Utils
 
 data Options = Options
     { optYes    :: Bool
     , optGlobal :: Bool
-    , optName   :: Environment.VarName
-    , optValue  :: Environment.VarValue
+    , optName   :: Env.VarName
+    , optValue  :: Env.VarValue
     } deriving (Eq, Show)
 
 options :: Parser Options
@@ -48,7 +47,7 @@ main = execParser parser >>= setEnv
         fullDesc <> progDesc "Set environment variable"
 
 setEnv :: Options -> IO ()
-setEnv options = void $ prompt confirmationBanner $ Environment.engrave profile varName varValue
+setEnv options = void $ prompt confirmationBanner $ Env.engrave profile varName varValue
   where
     confirmationBanner = Utils.engraveBanner profile varName Nothing varValue
 
@@ -57,8 +56,8 @@ setEnv options = void $ prompt confirmationBanner $ Environment.engrave profile
 
     forAllUsers = optGlobal options
     profile = if forAllUsers
-        then Environment.AllUsers
-        else Environment.CurrentUser
+        then Env.AllUsers
+        else Env.CurrentUser
 
     skipPrompt = optYes options
     prompt = if skipPrompt