[commit: ghc] master: StgCmmMonad: Implement Outputable instance for Sequel for debugging (c865c42)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/c865c425a37b0bc52f4dead9d70eb0ee2bc287d6/ghc

>---------------------------------------------------------------

commit c865c425a37b0bc52f4dead9d70eb0ee2bc287d6
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Fri Dec 4 15:36:47 2015 -0500

    StgCmmMonad: Implement Outputable instance for Sequel for debugging
    
    Reviewers: austin, bgamari
    
    Reviewed By: bgamari
    
    Subscribers: thomie
    
    Differential Revision: https://phabricator.haskell.org/D1563


>---------------------------------------------------------------

c865c425a37b0bc52f4dead9d70eb0ee2bc287d6
 compiler/codeGen/StgCmmMonad.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/codeGen/StgCmmMonad.hs b/compiler/codeGen/StgCmmMonad.hs
index 7ddbcd6..dd82b7f 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