diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-05-11 10:49:26 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-05-11 10:49:26 +0000 |
| commit | 940524aec90652b5ef81789c9a453c57c0e42cc9 (patch) | |
| tree | a3066fe9cf889b79ef5a8659df25f2de679afbf4 /compiler/codeGen | |
| parent | 485b80f9c422e49a441ec0b175c39799630171da (diff) | |
| download | haskell-940524aec90652b5ef81789c9a453c57c0e42cc9.tar.gz | |
Store a SrcSpan instead of a SrcLoc inside a Name
This has been a long-standing ToDo.
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/CodeGen.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/CodeGen.lhs b/compiler/codeGen/CodeGen.lhs index 4302e84f56..13e9c4a59c 100644 --- a/compiler/codeGen/CodeGen.lhs +++ b/compiler/codeGen/CodeGen.lhs @@ -350,7 +350,7 @@ maybeExternaliseId dflags id name = idName id uniq = nameUnique name new_occ = mkLocalOcc uniq (nameOccName name) - loc = nameSrcLoc name + loc = nameSrcSpan name -- We want to conjure up a name that can't clash with any -- existing name. So we generate -- Mod_$L243foo |