collect_sig_pat (ConPatIn _ ps) acc = foldr collect_sig_lpat acc (hsConPatArgs ps)
collect_sig_pat _ acc = acc -- Literals, vars, wildcard
\end{code}
collect_sig_pat (ConPatIn _ ps) acc = foldr collect_sig_lpat acc (hsConPatArgs ps)
collect_sig_pat _ acc = acc -- Literals, vars, wildcard
\end{code}