Add Outputable instance for HsArg
authorMatthew Pickering <matthew.pickering@tweag.io>
Mon, 4 Jun 2018 21:49:34 +0000 (17:49 -0400)
committerBen Gamari <ben@smart-cactus.org>
Mon, 4 Jun 2018 21:49:36 +0000 (17:49 -0400)
Reviewers: bgamari

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

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

compiler/typecheck/TcExpr.hs

index 2588899..b59b176 100644 (file)
@@ -1098,6 +1098,10 @@ data HsArg tm ty
   = HsValArg tm   -- Argument is an ordinary expression     (f arg)
   | HsTypeArg  ty -- Argument is a visible type application (f @ty)
 
+instance (Outputable tm, Outputable ty) => Outputable (HsArg tm ty) where
+  ppr (HsValArg tm) = text "HsValArg" <> ppr tm
+  ppr (HsTypeArg ty) = text "HsTypeArg" <> ppr ty
+
 isHsValArg :: HsArg tm ty -> Bool
 isHsValArg (HsValArg {}) = True
 isHsValArg (HsTypeArg {}) = False