Compat.hs

{-# LANGUAGE CPP  #-}
module GHC.Internal.ClosureTypes.Compat (
  ClosureType(..),
#if !MIN_VERSION_ghc_internal(9,1400,0)
  pattern ANN_FRAME,
#endif
) where

import GHC.Internal.ClosureTypes

#if !MIN_VERSION_ghc_internal(9,1400,0)
-- Unmatchable, as ANN_FRAME is a stack frame type introduced in GHC 9.14
pattern ANN_FRAME :: ClosureType
pattern ANN_FRAME <- (const Nothing -> Just _)
#endif