Add Outputable instance for Node
authorMatthew Pickering <matthewtpickering@gmail.com>
Thu, 11 May 2017 19:42:02 +0000 (15:42 -0400)
committerBen Gamari <ben@smart-cactus.org>
Thu, 11 May 2017 21:33:11 +0000 (17:33 -0400)
Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: rwbarton, thomie

Differential Revision: https://phabricator.haskell.org/D3564

compiler/utils/Digraph.hs

index fe325e6..e3b5037 100644 (file)
@@ -99,6 +99,9 @@ data Node key payload = DigraphNode {
      --    it's ok to have extra keys in the dependencies that
      --    are not the key of any Node in the graph
 
+instance (Outputable a, Outputable b) => Outputable (Node  a b) where
+  ppr (DigraphNode a b c) = ppr (a, b, c)
+
 emptyGraph :: Graph a
 emptyGraph = Graph (array (1, 0) []) (error "emptyGraph") (const Nothing)