- sel_name = idName sel_id
- inline_prags = [ (is_inl, phase)
- | L _ (InlineSig is_inl (L _ name) phase) <- prags,
- name == sel_name ]
- spec_prags = [ prag
- | prag@(L _ (SpecSig (L _ name) _)) <- prags,
- name == sel_name]
-
- -- Attach inline pragmas as appropriate
- (final_meth_id, inlines)
- | ((is_inline, phase) : _) <- inline_prags
- = (meth_id `setInlinePragma` phase,
- if is_inline then unitNameSet (idName meth_id) else emptyNameSet)
- | otherwise
- = (meth_id, emptyNameSet)
-