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/hsSyn/Convert.lhs | |
| 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/hsSyn/Convert.lhs')
| -rw-r--r-- | compiler/hsSyn/Convert.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/hsSyn/Convert.lhs b/compiler/hsSyn/Convert.lhs index 241eb44e06..db00786585 100644 --- a/compiler/hsSyn/Convert.lhs +++ b/compiler/hsSyn/Convert.lhs @@ -573,7 +573,7 @@ thRdrName :: OccName.NameSpace -> String -> TH.NameFlavour -> RdrName -- -- The strict applications ensure that any buried exceptions get forced thRdrName ctxt_ns occ (TH.NameG th_ns pkg mod) = (mkOrig $! (mkModule (mk_pkg pkg) (mk_mod mod))) $! (mk_occ (mk_ghc_ns th_ns) occ) -thRdrName ctxt_ns occ (TH.NameL uniq) = nameRdrName $! (((Name.mkInternalName $! (mk_uniq uniq)) $! (mk_occ ctxt_ns occ)) noSrcLoc) +thRdrName ctxt_ns occ (TH.NameL uniq) = nameRdrName $! (((Name.mkInternalName $! (mk_uniq uniq)) $! (mk_occ ctxt_ns occ)) noSrcSpan) thRdrName ctxt_ns occ (TH.NameQ mod) = (mkRdrQual $! (mk_mod mod)) $! (mk_occ ctxt_ns occ) thRdrName ctxt_ns occ (TH.NameU uniq) = mkRdrUnqual $! (mk_uniq_occ ctxt_ns occ uniq) thRdrName ctxt_ns occ TH.NameS |