diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-03-13 10:13:34 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-03-13 10:13:34 +0000 |
| commit | 8815f0c06c1dcea2ecca14c98f0972ea9ed29d51 (patch) | |
| tree | 600c2c6b0bcacc3e6d70c2ef24973d8c79b6b97c | |
| parent | 9c0e08c67eee8918336c1b8dce162343a312057c (diff) | |
| download | haskell-8815f0c06c1dcea2ecca14c98f0972ea9ed29d51.tar.gz | |
tidy up "missing symbol" error message
| -rw-r--r-- | compiler/ghci/Linker.lhs | 2 | ||||
| -rw-r--r-- | rts/Linker.c | 3 |
2 files changed, 2 insertions, 3 deletions
diff --git a/compiler/ghci/Linker.lhs b/compiler/ghci/Linker.lhs index 0de30af0af..3d30c07f13 100644 --- a/compiler/ghci/Linker.lhs +++ b/compiler/ghci/Linker.lhs @@ -413,7 +413,7 @@ reallyInitDynLinker dflags ; ok <- resolveObjs ; if succeeded ok then maybePutStrLn dflags "done" - else ghcError (InstallationError "linking extra libraries/objects failed") + else ghcError (ProgramError "linking extra libraries/objects failed") }} classifyLdInput :: FilePath -> IO (Maybe LibrarySpec) diff --git a/rts/Linker.c b/rts/Linker.c index f7013778c3..f1534e9bbc 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -2655,8 +2655,7 @@ ocResolve_PEi386 ( ObjectCode* oc ) copyName ( sym->Name, strtab, symbol, 1000-1 ); S = (UInt32) lookupSymbol( symbol ); if ((void*)S != NULL) goto foundit; - /* Newline first because the interactive linker has printed "linking..." */ - errorBelch("\n%s: unknown symbol `%s'", oc->fileName, symbol); + errorBelch("%s: unknown symbol `%s'", oc->fileName, symbol); return 0; foundit:; } |