Commit 4c6fcd72 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Comments only

parent 698adb51
......@@ -356,7 +356,8 @@ dsAbsBinds dflags tyvars dicts exports
makeCorePair :: DynFlags -> Id -> Bool -> Arity -> CoreExpr
-> (Id, CoreExpr)
makeCorePair dflags gbl_id is_default_method dict_arity rhs
| is_default_method -- Default methods are *always* inlined
| is_default_method -- Default methods are *always* inlined
-- See Note [INLINE and default methods] in TcInstDcls
= (gbl_id `setIdUnfolding` mkCompulsoryUnfolding rhs, rhs)
| otherwise
......
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