Commit fcf5e02f authored by simonmar's avatar simonmar
Browse files

[project @ 2004-12-03 16:25:58 by simonmar]

Get rid of some `...' style quotes
parent f9b37bc8
...@@ -574,8 +574,8 @@ checkHSLib dirs auto_ghci_libs force lib = do ...@@ -574,8 +574,8 @@ checkHSLib dirs auto_ghci_libs force lib = do
let batch_lib_file = "lib" ++ lib ++ ".a" let batch_lib_file = "lib" ++ lib ++ ".a"
bs <- mapM (doesLibExistIn batch_lib_file) dirs bs <- mapM (doesLibExistIn batch_lib_file) dirs
case [ dir | (exists,dir) <- zip bs dirs, exists ] of case [ dir | (exists,dir) <- zip bs dirs, exists ] of
[] -> dieOrForce force ("cannot find `" ++ batch_lib_file ++ [] -> dieOrForce force ("cannot find " ++ batch_lib_file ++
"' on library path") " on library path")
(dir:_) -> checkGHCiLib dirs dir batch_lib_file lib auto_ghci_libs (dir:_) -> checkGHCiLib dirs dir batch_lib_file lib auto_ghci_libs
doesLibExistIn :: String -> String -> IO Bool doesLibExistIn :: String -> String -> IO Bool
...@@ -589,7 +589,7 @@ checkGHCiLib dirs batch_lib_dir batch_lib_file lib auto_build ...@@ -589,7 +589,7 @@ checkGHCiLib dirs batch_lib_dir batch_lib_file lib auto_build
| otherwise = do | otherwise = do
bs <- mapM (doesLibExistIn ghci_lib_file) dirs bs <- mapM (doesLibExistIn ghci_lib_file) dirs
case [dir | (exists,dir) <- zip bs dirs, exists] of case [dir | (exists,dir) <- zip bs dirs, exists] of
[] -> hPutStrLn stderr ("warning: can't find GHCi lib `" ++ ghci_lib_file ++ "'") [] -> hPutStrLn stderr ("warning: can't find GHCi lib " ++ ghci_lib_file)
(_:_) -> return () (_:_) -> return ()
where where
ghci_lib_file = lib ++ ".o" ghci_lib_file = lib ++ ".o"
...@@ -601,7 +601,7 @@ autoBuildGHCiLib :: String -> String -> String -> IO () ...@@ -601,7 +601,7 @@ autoBuildGHCiLib :: String -> String -> String -> IO ()
autoBuildGHCiLib dir batch_file ghci_file = do autoBuildGHCiLib dir batch_file ghci_file = do
let ghci_lib_file = dir ++ '/':ghci_file let ghci_lib_file = dir ++ '/':ghci_file
batch_lib_file = dir ++ '/':batch_file batch_lib_file = dir ++ '/':batch_file
hPutStr stderr ("building GHCi library `" ++ ghci_lib_file ++ "'...") hPutStr stderr ("building GHCi library " ++ ghci_lib_file ++ "...")
#if defined(darwin_TARGET_OS) #if defined(darwin_TARGET_OS)
r <- system("ld -r -x -o " ++ ghci_lib_file ++ r <- system("ld -r -x -o " ++ ghci_lib_file ++
" -all_load " ++ batch_lib_file) " -all_load " ++ batch_lib_file)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment