diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-05-08 10:25:22 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-05-09 16:03:44 +0100 |
| commit | e08cad76e8a434aca42996f79fc8bb790f291570 (patch) | |
| tree | e3e0f7443ee210b479438d507c9484633fd69bba /compiler/simplCore/SimplUtils.lhs | |
| parent | 4bbd6baee066b906ed93a0659205ecbffdbd0954 (diff) | |
| download | haskell-e08cad76e8a434aca42996f79fc8bb790f291570.tar.gz | |
Wibbles to 'simplify the SimplCont data type'
Diffstat (limited to 'compiler/simplCore/SimplUtils.lhs')
| -rw-r--r-- | compiler/simplCore/SimplUtils.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/SimplUtils.lhs b/compiler/simplCore/SimplUtils.lhs index d68e2a4a46..87aefbab89 100644 --- a/compiler/simplCore/SimplUtils.lhs +++ b/compiler/simplCore/SimplUtils.lhs @@ -162,7 +162,7 @@ addArgTo ai arg = ai { ai_args = arg : ai_args ai , ai_type = applyTypeToArg (ai_type ai) arg } instance Outputable SimplCont where - ppr (Stop _ interesting) = ptext (sLit "Stop") <> brackets (ppr interesting) + ppr (Stop ty interesting) = ptext (sLit "Stop") <> brackets (ppr interesting) <+> ppr ty ppr (ApplyTo dup arg _ cont) = ((ptext (sLit "ApplyTo") <+> ppr dup <+> pprParendExpr arg) {- $$ nest 2 (pprSimplEnv se) -}) $$ ppr cont ppr (StrictBind b _ _ _ cont) = (ptext (sLit "StrictBind") <+> ppr b) $$ ppr cont |