X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FhsSyn%2FHsBinds.lhs;h=7de1d83ebaf04b3e0fbde9cdd169fcb29c1f1d87;hb=0111a6850470ed851a0ddc1c66644a45c5fa54d9;hp=07c631a62cd57f252d0efc6c381413d6c180f71b;hpb=7c9ef2cc6a623098b34bafa8f79e2ff3e7c834b8;p=ghc-hetmet.git

diff --git a/compiler/hsSyn/HsBinds.lhs b/compiler/hsSyn/HsBinds.lhs
index 07c631a..7de1d83 100644
--- a/compiler/hsSyn/HsBinds.lhs
+++ b/compiler/hsSyn/HsBinds.lhs
@@ -35,6 +35,7 @@ import SrcLoc
 import Util
 import Var
 import Bag
+import FastString
 \end{code}
 
 %************************************************************************
@@ -338,7 +339,7 @@ data HsWrapper
   | WpCompose HsWrapper HsWrapper	-- (\a1..an. []) `WpCompose` (\x1..xn. [])
 				--	= (\a1..an \x1..xn. [])
 
-  | WpCo Coercion		-- A cast:  [] `cast` co
+  | WpCast Coercion		-- A cast:  [] `cast` co
 				-- Guaranteedn not the identity coercion
 
   | WpApp Var			-- [] d		the 'd' is a type-class dictionary
@@ -360,7 +361,7 @@ pprHsWrapper it wrap =
     let 
         help it WpHole            = it
         help it (WpCompose f1 f2) = help (help it f2) f1
-        help it (WpCo co)     = sep [it, nest 2 (ptext SLIT("`cast`") <+> pprParendType co)]
+        help it (WpCast co)   = sep [it, nest 2 (ptext SLIT("`cast`") <+> pprParendType co)]
         help it (WpApp id)    = sep [it, nest 2 (ppr id)]
         help it (WpTyApp ty)  = sep [it, ptext SLIT("@") <+> pprParendType ty]
         help it (WpLam id)    = sep [ptext SLIT("\\") <> pprBndr LambdaBind id <> dot, it]