Commit 8921711e authored by rl@cse.unsw.edu.au's avatar rl@cse.unsw.edu.au

Mark PA dictionaries as __inline_me

parent dd5556ac
......@@ -299,7 +299,7 @@ buildPADict (PAInstance {
pa_dc <- builtin paDictDataCon
let dict = mkConApp pa_dc (Type (mkTyConApp vect_tc arg_tys) : meth_exprs)
body = Let (Rec meth_binds) dict
return [(instanceDFunId inst, abstract body)]
return [(instanceDFunId inst, mkInlineMe $ abstract body)]
where
tvs = tyConTyVars arr_tc
arg_tys = mkTyVarTys tvs
......
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