diff options
| author | Egor Tensin <Egor.Tensin@gmail.com> | 2017-06-12 04:07:30 +0300 |
|---|---|---|
| committer | Egor Tensin <Egor.Tensin@gmail.com> | 2017-06-12 04:07:30 +0300 |
| commit | f446a04e4100ed52e9d100e8e9705d358943a4ec (patch) | |
| tree | 40ce78f56691dd85fe98b406b7de1b2c3b1d7551 /app/ListPaths.hs | |
| parent | setenv: crap, another bug (diff) | |
| download | windows-env-f446a04e4100ed52e9d100e8e9705d358943a4ec.tar.gz windows-env-f446a04e4100ed52e9d100e8e9705d358943a4ec.zip | |
refactoring
Diffstat (limited to '')
| -rw-r--r-- | app/ListPaths.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/app/ListPaths.hs b/app/ListPaths.hs index c507d39..0c8483c 100644 --- a/app/ListPaths.hs +++ b/app/ListPaths.hs @@ -70,7 +70,9 @@ listPaths options = runExceptT doListPaths >>= either ioError return query = queryFrom $ optSource options - queryFrom Environment = lift $ WindowsEnv.Value False <$> fromMaybe "" <$> lookupEnv varName + queryFrom Environment = lift $ WindowsEnv.Value False + <$> fromMaybe "" + <$> lookupEnv varName queryFrom (Registry profile) = WindowsEnv.query profile varName doListPaths = do |