import Id
import MkId
import BasicTypes ( StrictnessMark(..), boolToRecFlag,
- dfunInlinePragma )
+ alwaysInlinePragma, dfunInlinePragma )
import Var ( Var, TyVar, varType )
import Name ( Name, getOccName )
import NameEnv
raw_var <- newExportedVar (method_name name) (exprType body)
let var = raw_var
`setIdUnfolding` mkInlineRule needSaturated body (length args)
+ `setInlinePragma` alwaysInlinePragma
hoistBinding var body
return var