diff options
| author | Thomas Schilling <nominolo@googlemail.com> | 2008-07-20 17:24:01 +0000 |
|---|---|---|
| committer | Thomas Schilling <nominolo@googlemail.com> | 2008-07-20 17:24:01 +0000 |
| commit | 1d2f5511ad8f33a4702ee7670193a525e9a9d757 (patch) | |
| tree | 389fa190d72dacde37a3e94069f156654635fbd8 /compiler/simplCore/Simplify.lhs | |
| parent | 432b38b66700d243369df5b76e5c5c01b5e197ff (diff) | |
| download | haskell-1d2f5511ad8f33a4702ee7670193a525e9a9d757.tar.gz | |
Fix Haddock errors.
Diffstat (limited to 'compiler/simplCore/Simplify.lhs')
| -rw-r--r-- | compiler/simplCore/Simplify.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs index 825b47728b..07bd02c08a 100644 --- a/compiler/simplCore/Simplify.lhs +++ b/compiler/simplCore/Simplify.lhs @@ -255,7 +255,7 @@ simplRecBind env0 top_lvl pairs0 ; env1 <- go (zapFloats env_with_info) triples ; return (env0 `addRecFloats` env1) } -- addFloats adds the floats from env1, - -- *and* updates env0 with the in-scope set from env1 + -- _and_ updates env0 with the in-scope set from env1 where add_rules :: SimplEnv -> (InBndr,InExpr) -> (SimplEnv, (InBndr, OutBndr, InExpr)) -- Add the (substituted) rules to the binder |