diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-06-23 08:21:51 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-06-23 08:21:51 +0100 |
| commit | 90a8c94e02ea68ef13a765eaa738aebb497d7b6b (patch) | |
| tree | 3bf1bfe1ed38b8dbea43148025108145514946b5 /compiler/simplCore/Simplify.lhs | |
| parent | 0033d5a4aa015544a3ecbf9bae2e7b94f0c9d48d (diff) | |
| download | haskell-90a8c94e02ea68ef13a765eaa738aebb497d7b6b.tar.gz | |
Get rid of the DFunArg type and all its works
This type was mainly there to support silent superclass
parameters for dfuns, and they have gone away. So this
patch is another minor simplification.
(Interface format change; you need to make clean.)
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 b187897f89..a1cae1c5dd 100644 --- a/compiler/simplCore/Simplify.lhs +++ b/compiler/simplCore/Simplify.lhs @@ -707,7 +707,7 @@ simplUnfolding :: SimplEnv-> TopLevelFlag simplUnfolding env _ _ _ (DFunUnfolding ar con ops) = return (DFunUnfolding ar con ops') where - ops' = map (fmap (substExpr (text "simplUnfolding") env)) ops + ops' = map (substExpr (text "simplUnfolding") env) ops simplUnfolding env top_lvl id _ (CoreUnfolding { uf_tmpl = expr, uf_arity = arity |