diff options
| author | Egor Tensin <Egor.Tensin@gmail.com> | 2016-07-18 00:17:44 +0300 |
|---|---|---|
| committer | Egor Tensin <Egor.Tensin@gmail.com> | 2016-07-18 00:17:44 +0300 |
| commit | 427ae9ad54492954578cafbfcd2d815a084e0986 (patch) | |
| tree | e81cdbf3b9f4d06c921f81a08264b214381d3c8a /apps/ListPath.hs | |
| parent | refactoring (diff) | |
| download | windows-env-427ae9ad54492954578cafbfcd2d815a084e0986.tar.gz windows-env-427ae9ad54492954578cafbfcd2d815a084e0986.zip | |
put modules to 'Windows'
Diffstat (limited to '')
| -rw-r--r-- | apps/ListPath.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/apps/ListPath.hs b/apps/ListPath.hs index ace3ede..f33983d 100644 --- a/apps/ListPath.hs +++ b/apps/ListPath.hs @@ -11,12 +11,11 @@ import Data.Maybe (fromMaybe) import System.Directory (doesDirectoryExist) import System.Environment (lookupEnv) -import Options.Applicative - -import qualified Environment +import Options.Applicative +import qualified Windows.Environment as Env data Options = Options - { optName :: Environment.VarName + { optName :: Env.VarName } deriving (Eq, Show) options :: Parser Options @@ -35,7 +34,7 @@ main = execParser parser >>= listPath listPath :: Options -> IO () listPath options = do oldValue <- getEnv varName - let oldPaths = Environment.pathSplit oldValue + let oldPaths = Env.pathSplit oldValue mapM_ printPath oldPaths where varName = optName options |