projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove warning flags from individual compiler modules
[ghc-hetmet.git]
/
compiler
/
cmm
/
ZipCfgExtras.hs
diff --git
a/compiler/cmm/ZipCfgExtras.hs
b/compiler/cmm/ZipCfgExtras.hs
index
1cd2fa9
..
e4bd1ae
100644
(file)
--- a/
compiler/cmm/ZipCfgExtras.hs
+++ b/
compiler/cmm/ZipCfgExtras.hs
@@
-51,11
+51,11
@@
exit g@(LGraph eid _) = FGraph eid (ZBlock h (ZLast l)) others
splice_focus_entry (FGraph eid (ZBlock head tail) blocks) g =
let (tail', g') = splice_tail g tail in
splice_focus_entry (FGraph eid (ZBlock head tail) blocks) g =
let (tail', g') = splice_tail g tail in
- FGraph eid (ZBlock head tail') (plusUFM (gr_blocks g') blocks)
+ FGraph eid (ZBlock head tail') (plusUFM (lg_blocks g') blocks)
splice_focus_exit (FGraph eid (ZBlock head tail) blocks) g =
let (g', head') = splice_head head g in
splice_focus_exit (FGraph eid (ZBlock head tail) blocks) g =
let (g', head') = splice_head head g in
- FGraph eid (ZBlock head' tail) (plusUFM (gr_blocks g') blocks)
+ FGraph eid (ZBlock head' tail) (plusUFM (lg_blocks g') blocks)
-- | Fold from first to last
fold_fwd_block ::
-- | Fold from first to last
fold_fwd_block ::