prags = prag_fn sel_name
; dm_id_w_inline <- addInlinePrags dm_id prags
- ; spec_prags <- tcSpecPrags True dm_id prags
+ ; spec_prags <- tcSpecPrags dm_id prags
; warnTc (not (null spec_prags))
(ptext (sLit "Ignoring SPECIALISE pragmas on default method")