[commit: ghc] wip/nfs-locking: :( (0fa71d1)

[git at git.haskell.org]

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

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

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

commit 0fa71d10277a13d26c0f441745993f0a45ad5dc3
Author: Moritz Angermann <moritz.angermann at gmail.com>
Date:   Thu Jan 7 13:02:51 2016 +0800

    :(


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

0fa71d10277a13d26c0f441745993f0a45ad5dc3
 src/Oracles/WindowsRoot.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Oracles/WindowsRoot.hs b/src/Oracles/WindowsRoot.hs
index 0c45230..6def89c 100644
--- a/src/Oracles/WindowsRoot.hs
+++ b/src/Oracles/WindowsRoot.hs
@@ -45,8 +45,8 @@ lookupInPath c
     | c /= takeFileName c = return c
     | otherwise = do
         envPaths <- splitOn ":" <$> getEnvWithDefault "" "PATH"
-        let candidates = map (-/- c) envPaths in
-        mapM_ putStrLn candidates
+        let candidates = map (-/- c) envPaths
+        liftIO $ mapM_ putStrLn candidates
         -- this will crash if we do not find any valid candidate.
         head <$> filterM doesFileExist candidates