diff options
Diffstat (limited to 'compiler/GHC/Types/Id.hs')
-rw-r--r-- | compiler/GHC/Types/Id.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Types/Id.hs b/compiler/GHC/Types/Id.hs index 2d6198dd64..2a45bd3389 100644 --- a/compiler/GHC/Types/Id.hs +++ b/compiler/GHC/Types/Id.hs @@ -123,7 +123,6 @@ module GHC.Types.Id ( import GHC.Prelude -import GHC.Driver.Session import GHC.Core ( CoreRule, isStableUnfolding, evaldUnfolding, isCompulsoryUnfolding, Unfolding( NoUnfolding ) ) @@ -161,6 +160,7 @@ import GHC.Core.Multiplicity import GHC.Utils.Misc import GHC.Utils.Outputable import GHC.Utils.Panic +import GHC.Utils.GlobalVars import GHC.Driver.Ppr @@ -843,7 +843,7 @@ typeOneShot ty isStateHackType :: Type -> Bool isStateHackType ty - | hasNoStateHack unsafeGlobalDynFlags + | unsafeHasNoStateHack = False | otherwise = case tyConAppTyCon_maybe ty of |