Commit 0c72a3ad authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Fix Trac #3964: view patterns in DsArrows

Just a missing case; I've eliminated the catch-all so 
that we get a warning next time we extend HsPat
parent b87e22d2
......@@ -1066,5 +1066,6 @@ collectl (L _ pat) bndrs
go (SigPatOut pat _) = collectl pat bndrs
go (TypePat _) = bndrs
go (CoPat _ pat _) = collectl (noLoc pat) bndrs
go p = pprPanic "collectl/go" (ppr p)
go (ViewPat _ pat _) = collectl pat bndrs
go p@(QuasiQuotePat {}) = pprPanic "collectl/go" (ppr p)
\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