blob: 86bf2d5e11f2171e5c3666b3a1aad46afbdf74ea (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module GHC.Core.Unfold where
import GHC.Prelude
import GHC.Types.Basic ( StateHackFlag )
data UnfoldingOpts
defaultUnfoldingOpts :: StateHackFlag -> UnfoldingOpts
updateCreationThreshold :: Int -> UnfoldingOpts -> UnfoldingOpts
updateUseThreshold :: Int -> UnfoldingOpts -> UnfoldingOpts
updateFunAppDiscount :: Int -> UnfoldingOpts -> UnfoldingOpts
updateDictDiscount :: Int -> UnfoldingOpts -> UnfoldingOpts
updateVeryAggressive :: Bool -> UnfoldingOpts -> UnfoldingOpts
updateCaseThreshold :: Int -> UnfoldingOpts -> UnfoldingOpts
updateCaseScaling :: Int -> UnfoldingOpts -> UnfoldingOpts
|