Comment typo

diff --git a/compiler/hsSyn/HsBinds.lhs b/compiler/hsSyn/HsBinds.lhs
index 8847e62..b8501d7 100644 (file)
--- 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