blob: cee6658df28ff2bc2cd25d3a6498738a9e5b6d8f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module CoreUnfold (
mkUnfolding, mkInlineUnfolding
) where
import GhcPrelude
import CoreSyn
import GHC.Driver.Session
mkInlineUnfolding :: CoreExpr -> Unfolding
mkUnfolding :: DynFlags
-> UnfoldingSource
-> Bool
-> Bool
-> CoreExpr
-> Unfolding
|