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/deSugar/DsUtils.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/deSugar/DsUtils.lhs')
| -rw-r--r-- | compiler/deSugar/DsUtils.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/DsUtils.lhs b/compiler/deSugar/DsUtils.lhs index 65448cb7b9..41ef58e114 100644 --- a/compiler/deSugar/DsUtils.lhs +++ b/compiler/deSugar/DsUtils.lhs @@ -948,7 +948,7 @@ mkTickBox ix vars e = do | otherwise = mkBreakPointOpId uq mod ix uq2 <- newUnique let occName = mkVarOcc "tick" - let name = mkInternalName uq2 occName noSrcLoc -- use mkSysLocal? + let name = mkInternalName uq2 occName noSrcSpan -- use mkSysLocal? let var = Id.mkLocalId name realWorldStatePrimTy scrut <- if opt_Hpc |