Commit 2f13cd88 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Comments only

parent 73f976c4
......@@ -986,7 +986,7 @@ rnMatch' ctxt rnBody match@(Match { m_fun_id_infix = mf, m_pats = pats
Just (L loc ty) -> addErrAt loc (resSigErr ctxt match ty)
-- Now the main event
-- note that there are no local ficity decls for matches
-- Note that there are no local fixity decls for matches
; rnPats ctxt pats $ \ pats' -> do
{ (grhss', grhss_fvs) <- rnGRHSs ctxt rnBody grhss
; let mf' = case (ctxt,mf) of
......
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