X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FhsSyn%2FHsBinds.lhs;h=6a3f1b0fb175802fce569289e64d43bd4dfb44c8;hb=3444b48ef7644c235d7f164f8837090dc30c23bb;hp=b4dc5b29cf007d573786dc7d9140b1ce6e991efb;hpb=f16dbbbe59cf3aa19c5fd384560a1b89076d7bc8;p=ghc-hetmet.git

diff --git a/compiler/hsSyn/HsBinds.lhs b/compiler/hsSyn/HsBinds.lhs
index b4dc5b2..6a3f1b0 100644
--- a/compiler/hsSyn/HsBinds.lhs
+++ b/compiler/hsSyn/HsBinds.lhs
@@ -341,7 +341,11 @@ data HsWrapper
 				-- Guaranteed not the identity coercion
 
   | WpApp Var			-- [] d		the 'd' is a type-class dictionary or coercion variable
+
   | WpTyApp Type		-- [] t		the 't' is a type or corecion
+    	    			--      ToDo: it'd be tidier if 't' was always a type (not coercion),
+				--	      but that is inconvenient in Inst.instCallDicts
+
   | WpLam Var	 		-- \d. []	the 'd' is a type-class dictionary or coercion variable
   | WpTyLam TyVar 		-- \a. []	the 'a' is a type variable (not coercion var)
   | WpInline			-- inline_me []   Wrap inline around the thing