{-# LANGUAGE CPP #-}
#include "ghclib_api.h"
module Language.Haskell.GhclibParserEx.GHC.Hs(
modName
)
where
#if defined (GHC_9_10) || defined (GHC_9_8) || defined (GHC_9_6) || defined (GHC_9_4) || defined (GHC_9_2) || defined (GHC_9_0)
import GHC.Hs
# if !defined (GHC_9_10) && !defined (GHC_9_8) && !defined (GHC_9_6)
import GHC.Unit.Module
# endif
import GHC.Types.SrcLoc
#elif defined (GHC_8_10)
import GHC.Hs
import Module
import SrcLoc
#else
import HsSyn
import Module
import SrcLoc
#endif
#if defined (GHC_9_4) || defined (GHC_9_2) || defined (GHC_9_0)
modName :: Located HsModule -> String
#else
modName :: Located (HsModule GhcPs) -> String
#endif
modName :: Located (HsModule GhcPs) -> String
modName (L SrcSpan
_ HsModule {hsmodName :: forall p. HsModule p -> Maybe (XRec p ModuleName)
hsmodName=Maybe (XRec GhcPs ModuleName)
Nothing}) = String
"Main"
modName (L SrcSpan
_ HsModule {hsmodName :: forall p. HsModule p -> Maybe (XRec p ModuleName)
hsmodName=Just (L SrcSpanAnnA
_ ModuleName
n)}) = ModuleName -> String
moduleNameString ModuleName
n