X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FhsSyn%2FHsBinds.lhs;h=40b51ca440f08c4ee2520a997eed9e3424778386;hb=247fd64109002ed88c27bc5d6cfea6a71ee48cfa;hp=adf234dccc4fb2a911e775b636dbab87aec5a568;hpb=67ee8a93fc96a38c3f73468cb86d8421a11d2911;p=ghc-hetmet.git

diff --git a/compiler/hsSyn/HsBinds.lhs b/compiler/hsSyn/HsBinds.lhs
index adf234d..40b51ca 100644
--- a/compiler/hsSyn/HsBinds.lhs
+++ b/compiler/hsSyn/HsBinds.lhs
@@ -318,7 +318,7 @@ data ExprCoFn
 	-- Non-empty bindings, so that the identity coercion
 	-- is always exactly CoHole
   | CoLet (LHsBinds Id)		-- let binds in []
-				-- (ould be nicer to be core bindings)
+				-- (would be nicer to be core bindings)
 
 instance Outputable ExprCoFn where 
   ppr co_fn = pprCoFn (ptext SLIT("<>")) co_fn