projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
UNDO: Extend ModBreaks with the srcspan's of the enclosing expressions
[ghc-hetmet.git]
/
compiler
/
main
/
HscTypes.lhs
diff --git
a/compiler/main/HscTypes.lhs
b/compiler/main/HscTypes.lhs
index
acb47c5
..
719df2d
100644
(file)
--- a/
compiler/main/HscTypes.lhs
+++ b/
compiler/main/HscTypes.lhs
@@
-608,8
+608,6
@@
data ForeignStubs = NoStubs
-- "foreign exported" functions
[FastString] -- Headers that need to be included
-- into C code generated for this module
-- "foreign exported" functions
[FastString] -- Headers that need to be included
-- into C code generated for this module
- [Id] -- Foreign-exported binders
- -- we have to generate code to register these
\end{code}
\end{code}
@@
-1432,8
+1430,6
@@
data ModBreaks
-- An array giving the source span of each breakpoint.
, modBreaks_vars :: !(Array BreakIndex [OccName])
-- An array giving the names of the free variables at each breakpoint.
-- An array giving the source span of each breakpoint.
, modBreaks_vars :: !(Array BreakIndex [OccName])
-- An array giving the names of the free variables at each breakpoint.
- , modBreaks_decls:: !(Array BreakIndex SrcSpan)
- -- An array giving the span of the enclosing expression
}
emptyModBreaks :: ModBreaks
}
emptyModBreaks :: ModBreaks
@@
-1442,6
+1438,5
@@
emptyModBreaks = ModBreaks
-- Todo: can we avoid this?
, modBreaks_locs = array (0,-1) []
, modBreaks_vars = array (0,-1) []
-- Todo: can we avoid this?
, modBreaks_locs = array (0,-1) []
, modBreaks_vars = array (0,-1) []
- , modBreaks_decls= array (0,-1) []
}
\end{code}
}
\end{code}