-- Copyright (c) 2020, Shayne Fletcher. All rights reserved.
-- SPDX-License-Identifier: BSD-3-Clause.

{-# LANGUAGE CPP #-}
#include "ghclib_api.h"

module Language.Haskell.GhclibParserEx.GHC.Hs(
   modName
 )
where

#if defined (GHCLIB_API_HEAD) || defined (GHCLIB_API_902) || defined (GHCLIB_API_900)
import GHC.Hs
import GHC.Unit.Module
import GHC.Types.SrcLoc
#elif defined (GHCLIB_API_810)
import GHC.Hs
import Module
import SrcLoc
#else
import HsSyn
import Module
import SrcLoc
#endif

#if defined (GHCLIB_API_HEAD) || defined (GHCLIB_API_902) || defined (GHCLIB_API_900)
modName :: Located HsModule -> String
#else
modName :: Located (HsModule GhcPs) -> String
#endif
modName :: Located HsModule -> String
modName (L SrcSpan
_ HsModule {hsmodName :: HsModule -> Maybe (Located ModuleName)
hsmodName=Maybe (Located ModuleName)
Nothing}) = String
"Main"
modName (L SrcSpan
_ HsModule {hsmodName :: HsModule -> Maybe (Located ModuleName)
hsmodName=Just (L SrcSpan
_ ModuleName
n)}) = ModuleName -> String
moduleNameString ModuleName
n