{-# LANGUAGE CPP #-}
{-# LANGUAGE RecordWildCards #-}

-- | Wrapper for 'GHC.Hs'
module HIndent.GhcLibParserWrapper.GHC.Hs
  ( module GHC.Hs
  , HsModule'
  , getModuleAnn
  , getDeprecMessage
  ) where

import GHC.Hs
import HIndent.GhcLibParserWrapper.GHC.Unit.Module.Warnings
-- | The wrapper for `HsModule`
#if MIN_VERSION_ghc_lib_parser(9, 6, 1)
type HsModule' = HsModule GhcPs
#else
type HsModule' = HsModule
#endif
getModuleAnn :: HsModule' -> EpAnn AnnsModule
#if MIN_VERSION_ghc_lib_parser(9, 6, 1)
getModuleAnn :: HsModule' -> EpAnn AnnsModule
getModuleAnn HsModule {hsmodExt :: forall p. HsModule p -> XCModule p
hsmodExt = XModulePs {Maybe (LWarningTxt GhcPs)
Maybe (LHsDoc GhcPs)
EpAnn AnnsModule
EpLayout
hsmodAnn :: EpAnn AnnsModule
hsmodLayout :: EpLayout
hsmodDeprecMessage :: Maybe (LWarningTxt GhcPs)
hsmodHaddockModHeader :: Maybe (LHsDoc GhcPs)
hsmodHaddockModHeader :: XModulePs -> Maybe (LHsDoc GhcPs)
hsmodDeprecMessage :: XModulePs -> Maybe (LWarningTxt GhcPs)
hsmodLayout :: XModulePs -> EpLayout
hsmodAnn :: XModulePs -> EpAnn AnnsModule
..}} = EpAnn AnnsModule
hsmodAnn
#else
getModuleAnn HsModule {..} = hsmodAnn
#endif
getDeprecMessage :: HsModule' -> Maybe (LocatedP WarningTxt')
#if MIN_VERSION_ghc_lib_parser(9, 6, 1)
getDeprecMessage :: HsModule' -> Maybe (LocatedP WarningTxt')
getDeprecMessage HsModule {hsmodExt :: forall p. HsModule p -> XCModule p
hsmodExt = XModulePs {Maybe (LWarningTxt GhcPs)
Maybe (LHsDoc GhcPs)
EpAnn AnnsModule
EpLayout
hsmodHaddockModHeader :: XModulePs -> Maybe (LHsDoc GhcPs)
hsmodDeprecMessage :: XModulePs -> Maybe (LWarningTxt GhcPs)
hsmodLayout :: XModulePs -> EpLayout
hsmodAnn :: XModulePs -> EpAnn AnnsModule
hsmodAnn :: EpAnn AnnsModule
hsmodLayout :: EpLayout
hsmodDeprecMessage :: Maybe (LWarningTxt GhcPs)
hsmodHaddockModHeader :: Maybe (LHsDoc GhcPs)
..}} = Maybe (LWarningTxt GhcPs)
Maybe (LocatedP WarningTxt')
hsmodDeprecMessage
#else
getDeprecMessage HsModule {..} = hsmodDeprecMessage
#endif