Commit 1a61c6b8 authored by Matthew Pickering's avatar Matthew Pickering Committed by Ben Gamari

Add Outputable instance for HsArg

Reviewers: bgamari

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

Differential Revision:
parent 7df58960
......@@ -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
Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment