diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2014-01-20 10:26:13 +0000 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2014-01-20 10:33:22 +0000 |
| commit | 0c578870d5a65b496cb57b260cd83d71db50f3b3 (patch) | |
| tree | 881c3b4d40a690421042106a1e1f1db2f6b0c034 /compiler/specialise | |
| parent | 2bb19fad1d809dda37011f442b0fd561aea045b6 (diff) | |
| download | haskell-0c578870d5a65b496cb57b260cd83d71db50f3b3.tar.gz | |
Simplify doCorePass
Diffstat (limited to 'compiler/specialise')
| -rw-r--r-- | compiler/specialise/Specialise.lhs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/specialise/Specialise.lhs b/compiler/specialise/Specialise.lhs index 225076e9e3..3191ae946e 100644 --- a/compiler/specialise/Specialise.lhs +++ b/compiler/specialise/Specialise.lhs @@ -566,9 +566,10 @@ Hence, the invariant is this: %************************************************************************ \begin{code} -specProgram :: DynFlags -> ModGuts -> CoreM ModGuts -specProgram dflags guts@(ModGuts { mg_rules = rules, mg_binds = binds }) +specProgram :: ModGuts -> CoreM ModGuts +specProgram guts@(ModGuts { mg_rules = rules, mg_binds = binds }) = do { hpt_rules <- getRuleBase + ; dflags <- getDynFlags ; let local_rules = mg_rules guts rule_base = extendRuleBaseList hpt_rules rules |