Commit 252ea4fa authored by simonpj@microsoft.com's avatar simonpj@microsoft.com

Improve crash message

parent 2fc5aa70
......@@ -653,6 +653,6 @@ checkArgs fun (MatchGroup (match1:matches) _)
args_in_match :: LMatch Name -> Int
args_in_match (L _ (Match pats _ _)) = length pats
checkArgs _ _ = panic "TcPat.checkArgs" -- Matches always non-empty
checkArgs fun _ = pprPanic "TcPat.checkArgs" (ppr fun) -- Matches always non-empty
\end{code}
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