diff options
| -rw-r--r-- | compiler/GHC/Core/Opt/LiberateCase.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Core/Opt/LiberateCase.hs b/compiler/GHC/Core/Opt/LiberateCase.hs index 50c027cf8a..863a19d961 100644 --- a/compiler/GHC/Core/Opt/LiberateCase.hs +++ b/compiler/GHC/Core/Opt/LiberateCase.hs @@ -395,8 +395,8 @@ lookupLevel env id -- | Options for the liberate case pass. data LibCaseOpts = LibCaseOpts - -- | Bomb-out size for deciding if potential liberatees are too big. - { lco_threshold :: !(Maybe Int) + { -- | Bomb-out size for deciding if potential liberatees are too big. + lco_threshold :: !(Maybe Int) -- | Unfolding options , lco_unfolding_opts :: !UnfoldingOpts } |