diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2015-12-04 15:36:47 -0500 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2015-12-04 15:37:13 -0500 |
| commit | c865c425a37b0bc52f4dead9d70eb0ee2bc287d6 (patch) | |
| tree | 0619bcd048ca1af960f5363a450270c26a935ab9 /compiler/codeGen/StgCmmMonad.hs | |
| parent | 901cab10609dc9795e57163834512373530fc4a5 (diff) | |
| download | haskell-c865c425a37b0bc52f4dead9d70eb0ee2bc287d6.tar.gz | |
StgCmmMonad: Implement Outputable instance for Sequel for debugging
Reviewers: austin, bgamari
Reviewed By: bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1563
Diffstat (limited to 'compiler/codeGen/StgCmmMonad.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmMonad.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/codeGen/StgCmmMonad.hs b/compiler/codeGen/StgCmmMonad.hs index 7ddbcd6cbc..dd82b7f941 100644 --- a/compiler/codeGen/StgCmmMonad.hs +++ b/compiler/codeGen/StgCmmMonad.hs @@ -227,6 +227,10 @@ data Sequel -- may allocate (e.g. it's a foreign call or -- allocating primOp) +instance Outputable Sequel where + ppr (Return b) = ptext (sLit "Return") <+> ppr b + ppr (AssignTo regs b) = ptext (sLit "AssignTo") <+> ppr regs <+> ppr b + -- See Note [sharing continuations] below data ReturnKind = AssignedDirectly |