-checkGHCiLib dirs batch_lib_dir batch_lib_file lib auto_build = do
- let ghci_lib_file = lib ++ ".o"
- bs <- mapM (\d -> doesFileExist (d ++ '/':ghci_lib_file)) dirs
- case [ dir | (exists,dir) <- zip bs dirs, exists ] of
- [] | auto_build ->
- autoBuildGHCiLib batch_lib_dir batch_lib_file ghci_lib_file
- | otherwise ->
- hPutStrLn stderr ("warning: can't find GHCi lib `"
- ++ ghci_lib_file ++ "'")
+checkGHCiLib dirs batch_lib_dir batch_lib_file lib auto_build
+ | auto_build = autoBuildGHCiLib batch_lib_dir batch_lib_file ghci_lib_file
+ | otherwise = do
+ bs <- mapM (doesLibExistIn ghci_lib_file) dirs
+ case [dir | (exists,dir) <- zip bs dirs, exists] of
+ [] -> hPutStrLn stderr ("warning: can't find GHCi lib `" ++ ghci_lib_file ++ "'")