projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-11-25 11:36:34 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
coreSyn
/
CoreSyn.lhs
diff --git
a/ghc/compiler/coreSyn/CoreSyn.lhs
b/ghc/compiler/coreSyn/CoreSyn.lhs
index
69c49dd
..
28c913d
100644
(file)
--- a/
ghc/compiler/coreSyn/CoreSyn.lhs
+++ b/
ghc/compiler/coreSyn/CoreSyn.lhs
@@
-41,7
+41,7
@@
module CoreSyn (
-- Core rules
CoreRules(..), -- Representation needed by friends
CoreRule(..), -- CoreSubst, CoreTidy, CoreFVs, PprCore only
-- Core rules
CoreRules(..), -- Representation needed by friends
CoreRule(..), -- CoreSubst, CoreTidy, CoreFVs, PprCore only
- IdCoreRule,
+ IdCoreRule(..), isOrphanRule,
RuleName,
emptyCoreRules, isEmptyCoreRules, rulesRhsFreeVars, rulesRules,
isBuiltinRule, ruleName
RuleName,
emptyCoreRules, isEmptyCoreRules, rulesRhsFreeVars, rulesRules,
isBuiltinRule, ruleName
@@
-186,7
+186,12
@@
rulesRules (Rules rules _) = rules
\begin{code}
type RuleName = FastString
\begin{code}
type RuleName = FastString
-type IdCoreRule = (Id,CoreRule) -- Rules don't have their leading Id inside them
+data IdCoreRule = IdCoreRule Id -- A rule for this Id
+ Bool -- True <=> orphan rule
+ CoreRule -- The rule itself
+
+isOrphanRule :: IdCoreRule -> Bool
+isOrphanRule (IdCoreRule _ is_orphan _) = is_orphan
data CoreRule
= Rule RuleName
data CoreRule
= Rule RuleName