[commit: ghc] wip/libdw-unwind: CmmNode: Add Outputable for NewOrExistingLabel (855c291)

[git at git.haskell.org]

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

On branch  : wip/libdw-unwind
Link       : http://ghc.haskell.org/trac/ghc/changeset/855c291d9afbe29e815f5e58475a398ad3e96733/ghc

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

commit 855c291d9afbe29e815f5e58475a398ad3e96733
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Mon Jan 4 12:59:02 2016 +0100

    CmmNode: Add Outputable for NewOrExistingLabel


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

855c291d9afbe29e815f5e58475a398ad3e96733
 compiler/cmm/CmmNode.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/cmm/CmmNode.hs b/compiler/cmm/CmmNode.hs
index 41ca932..f507fd5 100644
--- a/compiler/cmm/CmmNode.hs
+++ b/compiler/cmm/CmmNode.hs
@@ -248,6 +248,10 @@ type UpdFrameOffset = ByteOff
 data NewOrExistingLabel = NewLabel !Label | ExistingLabel !Label
                         deriving (Eq)
 
+instance Outputable NewOrExistingLabel where
+  ppr (NewLabel lbl) = text "NewLabel" <+> ppr lbl
+  ppr (ExistingLabel lbl) = text "ExistingLabel" <+> ppr lbl
+
 -- | A convention maps a list of values (function arguments or return
 -- values) to registers or stack locations.
 data Convention