Commit 5439bab7 authored by simonpj's avatar simonpj
Browse files

[project @ 2000-09-07 16:27:55 by simonpj]

Add comment
parent 17fff931
...@@ -42,7 +42,6 @@ import Unique ( eqClassOpKey, geClassOpKey, minusClassOpKey, ...@@ -42,7 +42,6 @@ import Unique ( eqClassOpKey, geClassOpKey, minusClassOpKey,
) )
import BasicTypes ( isBoxed ) import BasicTypes ( isBoxed )
import Bag import Bag
import Util ( zipEqual )
import Outputable import Outputable
\end{code} \end{code}
...@@ -213,7 +212,7 @@ tcPat tc_bndr pat@(RecPatIn name rpats) pat_ty ...@@ -213,7 +212,7 @@ tcPat tc_bndr pat@(RecPatIn name rpats) pat_ty
-- Check the constructor itself -- Check the constructor itself
tcConstructor pat name pat_ty `thenTc` \ (data_con, ex_tvs, dicts, lie_avail1, arg_tys) -> tcConstructor pat name pat_ty `thenTc` \ (data_con, ex_tvs, dicts, lie_avail1, arg_tys) ->
let let
-- not zipEqual: if the constructor isn't really a record, then -- Don't use zipEqual! If the constructor isn't really a record, then
-- dataConFieldLabels will be empty (and each field in the pattern -- dataConFieldLabels will be empty (and each field in the pattern
-- will generate an error below). -- will generate an error below).
field_tys = zip (map fieldLabelName (dataConFieldLabels data_con)) field_tys = zip (map fieldLabelName (dataConFieldLabels data_con))
......
Supports Markdown
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