Commit b88025ea authored by chak@cse.unsw.edu.au.'s avatar chak@cse.unsw.edu.au.

Fixed uninitialised FunBind fun_tick field

parent 922e0665
......@@ -445,8 +445,11 @@ rnMethodBind cls sig_fn gen_tyvars (L loc (FunBind { fun_id = name, fun_infix =
new_group = MatchGroup new_matches placeHolderType
in
checkPrecMatch inf plain_name new_group `thenM_`
returnM (unitBag (L loc (FunBind { fun_id = sel_name, fun_infix = inf, fun_matches = new_group,
bind_fvs = fvs, fun_co_fn = idHsWrapper })),
returnM (unitBag (L loc (FunBind {
fun_id = sel_name, fun_infix = inf,
fun_matches = new_group,
bind_fvs = fvs, fun_co_fn = idHsWrapper,
fun_tick = Nothing })),
fvs `addOneFV` plain_name)
-- The 'fvs' field isn't used for method binds
where
......
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