diff options
| author | M Farkas-Dyck <strake888@gmail.com> | 2022-08-19 18:31:37 -0700 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-08-24 02:37:01 -0400 |
| commit | b929063ec5473fc36fe3976ff0eb8064a2d2fc3d (patch) | |
| tree | 196d4865862c8b3b7c950a6c94aa50f74d2e0554 | |
| parent | 80102356468d87b683d5360a291c44b057a52ade (diff) | |
| download | haskell-b929063ec5473fc36fe3976ff0eb8064a2d2fc3d.tar.gz | |
Unbreak Haddock comments in `GHC.Core.Opt.WorkWrap.Utils`.
Closes #22092.
| -rw-r--r-- | compiler/GHC/Core/Opt/WorkWrap/Utils.hs | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/compiler/GHC/Core/Opt/WorkWrap/Utils.hs b/compiler/GHC/Core/Opt/WorkWrap/Utils.hs index ea903b5664..1fc05737f1 100644 --- a/compiler/GHC/Core/Opt/WorkWrap/Utils.hs +++ b/compiler/GHC/Core/Opt/WorkWrap/Utils.hs @@ -136,19 +136,18 @@ the unusable strictness-info into the interfaces. data WwOpts = MkWwOpts - -- | Environment of type/data family instances - { wo_fam_envs :: !FamInstEnvs - -- | Options for the "Simple optimiser" - , wo_simple_opts :: !SimpleOpts - -- | Whether to enable "Constructed Product Result" analysis. - -- (Originally from DOI: 10.1017/S0956796803004751) - , wo_cpr_anal :: !Bool - -- | Used for absent argument error message - , wo_module :: !Module - -- | Generate workers even if the only effect is some args get passed - -- unlifted. See Note [WW for calling convention] - , wo_unlift_strict :: !Bool - } + { -- | Environment of type/data family instances + wo_fam_envs :: !FamInstEnvs + , -- | Options for the "Simple optimiser" + wo_simple_opts :: !SimpleOpts + , -- | Whether to enable "Constructed Product Result" analysis. + -- (Originally from DOI: 10.1017/S0956796803004751) + wo_cpr_anal :: !Bool + , -- | Used for absent argument error message + wo_module :: !Module + , -- | Generate workers even if the only effect is some args get passed + -- unlifted. See Note [WW for calling convention] + wo_unlift_strict :: !Bool } type WwResult = ([Demand], -- Demands for worker (value) args |