:+1:
authorMoritz Angermann <moritz.angermann@gmail.com>
Thu, 7 Jan 2016 05:51:30 +0000 (13:51 +0800)
committerMoritz Angermann <moritz.angermann@gmail.com>
Thu, 7 Jan 2016 05:51:30 +0000 (13:51 +0800)
src/Builder.hs
src/Oracles/WindowsRoot.hs

index 6e4dba5..0613452 100644 (file)
@@ -95,8 +95,10 @@ builderPath builder = do
             putError $ "\nCannot find path to '" ++ (builderKey builder)
                      ++ "' in configuration files."
     windows <- windowsHost
-    let path' = if null path then "" else path -<.> exe in
-        (if windows then fixAbsolutePathOnWindows else lookupInPath) path'
+    case (path, windows) of
+        ("", _)    -> return path
+        (p, True)  -> fixAbsolutePathOnWindows (p -<.> exe)
+        (p, False) -> lookupInPath (p -<.> exe)
 
 getBuilderPath :: Builder -> ReaderT a Action FilePath
 getBuilderPath = lift . builderPath
index 6def89c..4186700 100644 (file)
@@ -46,7 +46,6 @@ lookupInPath c
     | otherwise = do
         envPaths <- splitOn ":" <$> getEnvWithDefault "" "PATH"
         let candidates = map (-/- c) envPaths
-        liftIO $ mapM_ putStrLn candidates
         -- this will crash if we do not find any valid candidate.
         head <$> filterM doesFileExist candidates