Commit 92a4f908 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Spelling typos

parent e77b9a20
......@@ -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
ignoreErrorReporter ctxt cts
= do { traceTc "mkGivenErrorReporter no" (ppr cts $$ ppr (cec_encl ctxt))
; return () }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment