From: Ian Lynagh <igloo@earth.li>
Date: Sat, 16 Jan 2010 13:49:15 +0000 (+0000)
Subject: Fix typo
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=2f41cb69519a137eb1bacf7bc1801329e00b9e5d;ds=sidebyside

Fix typo
---

diff --git a/compiler/specialise/SpecConstr.lhs b/compiler/specialise/SpecConstr.lhs
index b811f40..e3dc1b0 100644
--- a/compiler/specialise/SpecConstr.lhs
+++ b/compiler/specialise/SpecConstr.lhs
@@ -1116,7 +1116,7 @@ specialise env force_spec bind_calls (fn, arg_bndrs, body, arg_occs)
 		where
 		   msg = vcat [ sep [ ptext (sLit "Function") <+> quotes (ppr fn)
 		       	            , nest 2 (ptext (sLit "has") <+> int n_pats <+> 
-                                              ptext (sLit "call pattterns, but the limit is") <+> int max) ]
+                                              ptext (sLit "call patterns, but the limit is") <+> int max) ]
 			      , ptext (sLit "Use -fspec-constr-count=n to set the bound")
 			      , extra ]
 	           extra | not opt_PprStyle_Debug = ptext (sLit "Use -dppr-debug to see specialisations")