[commit: ghc] wip/nfs-locking: Show the candidates. (e4ed614)

git at git.haskell.org git at git.haskell.org
Thu Oct 26 23:59:19 UTC 2017


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/e4ed614de3a98ec374536032946802a37b96e85d/ghc

>---------------------------------------------------------------

commit e4ed614de3a98ec374536032946802a37b96e85d
Author: Moritz Angermann <moritz.angermann at gmail.com>
Date:   Thu Jan 7 11:30:05 2016 +0800

    Show the candidates.


>---------------------------------------------------------------

e4ed614de3a98ec374536032946802a37b96e85d
 src/Oracles/WindowsRoot.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Oracles/WindowsRoot.hs b/src/Oracles/WindowsRoot.hs
index 473a235..0c45230 100644
--- a/src/Oracles/WindowsRoot.hs
+++ b/src/Oracles/WindowsRoot.hs
@@ -46,8 +46,9 @@ lookupInPath c
     | otherwise = do
         envPaths <- splitOn ":" <$> getEnvWithDefault "" "PATH"
         let candidates = map (-/- c) envPaths in
-            -- this will crash if we do not find any valid candidate.
-            head <$> filterM doesFileExist candidates
+        mapM_ putStrLn candidates
+        -- this will crash if we do not find any valid candidate.
+        head <$> filterM doesFileExist candidates
 
 -- Oracle for windowsRoot. This operation requires caching as looking up
 -- the root is slow (at least the current implementation).



More information about the ghc-commits mailing list