diff options
| -rw-r--r-- | ghc/utils/ghc-pkg/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/utils/ghc-pkg/Main.hs b/ghc/utils/ghc-pkg/Main.hs index d0f8d3a8f7..c5ec0d558f 100644 --- a/ghc/utils/ghc-pkg/Main.hs +++ b/ghc/utils/ghc-pkg/Main.hs @@ -351,7 +351,7 @@ doesLibExistIn lib d checkGHCiLib :: [String] -> String -> String -> String -> Bool -> IO () 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 + bs <- mapM (doesLibExistIn 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 |