X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FhsSyn%2FHsBinds.lhs;h=b8501d770f69c6e957d289bdfa69159221c2ceea;hb=0dac952932514c931b00b1fae555ebde79f2b4db;hp=8847e62c10f3398458b3b70184fd20bfc94b45e1;hpb=4385caba003064bb556f965b32fdc962ea19ea69;p=ghc-hetmet.git

diff --git a/compiler/hsSyn/HsBinds.lhs b/compiler/hsSyn/HsBinds.lhs
index 8847e62..b8501d7 100644
--- a/compiler/hsSyn/HsBinds.lhs
+++ b/compiler/hsSyn/HsBinds.lhs
@@ -338,7 +338,7 @@ data HsWrapper
 				--	= (\a1..an \x1..xn. [])
 
   | WpCast Coercion		-- A cast:  [] `cast` co
-				-- Guaranteedn not the identity coercion
+				-- Guaranteed not the identity coercion
 
   | WpApp Var			-- [] d		the 'd' is a type-class dictionary
   | WpTyApp Type		-- [] t		the 't' is a type or corecion