Commit 19a86f31 authored by keithw's avatar keithw
Browse files

[project @ 1999-01-07 14:54:42 by keithw]

Add missing pattern to tidyNote.
parent 98200644
......@@ -305,6 +305,8 @@ tidyAlt env (con, vs, rhs) = (con, vs', tidyExpr env' rhs)
(env', vs') = mapAccumL tidyNestedBndr env vs
tidyNote env (Coerce t1 t2) = Coerce (tidyType env t1) (tidyType env t2)
tidyNote env note = note
\end{code}
\begin{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