diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2017-06-07 08:58:52 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2017-06-07 12:04:17 +0100 |
| commit | 92a4f908f2599150bec0530d688997f03780646e (patch) | |
| tree | eca98900d50c12ee617de99549e5e8f7f930e0df | |
| parent | e77b9a2069bca9018f989d7c4f54da099e3ab215 (diff) | |
| download | haskell-92a4f908f2599150bec0530d688997f03780646e.tar.gz | |
Spelling typos
| -rw-r--r-- | compiler/typecheck/TcErrors.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/typecheck/TcErrors.hs b/compiler/typecheck/TcErrors.hs index 4411d6ac51..ed1eb82ce6 100644 --- a/compiler/typecheck/TcErrors.hs +++ b/compiler/typecheck/TcErrors.hs @@ -640,7 +640,7 @@ mkGivenErrorReporter implic ctxt cts ; err <- mkEqErr_help dflags ctxt report ct' Nothing ty1 ty2 - ; traceTc "mkGivenErrorRporter" (ppr ct) + ; traceTc "mkGivenErrorReporter" (ppr ct) ; maybeReportError ctxt err } where (ct : _ ) = cts -- Never empty @@ -648,9 +648,9 @@ mkGivenErrorReporter implic ctxt cts ignoreErrorReporter :: Reporter -- Discard Given errors that don't come from --- a pattern match; maybe we should warn instead?ignoreErrorReporter ctxt cts +-- a pattern match; maybe we should warn instead? ignoreErrorReporter ctxt cts - = do { traceTc "mkGivenErrorRporter no" (ppr cts $$ ppr (cec_encl ctxt)) + = do { traceTc "mkGivenErrorReporter no" (ppr cts $$ ppr (cec_encl ctxt)) ; return () } |