module GHC.Util.Module (modName, fromModuleName') where
import HsSyn
import Module
import SrcLoc
modName :: Located (HsModule GhcPs) -> String
modName :: Located (HsModule GhcPs) -> String
modName (LL _ HsModule {hsmodName=Nothing}) = "Main"
modName (LL _ HsModule {hsmodName=Just (L _ n)}) = ModuleName -> String
moduleNameString ModuleName
n
modName _ = ""
fromModuleName' :: Located ModuleName -> String
fromModuleName' :: Located ModuleName -> String
fromModuleName' (LL _ n :: SrcSpanLess (Located ModuleName)
n) = ModuleName -> String
moduleNameString SrcSpanLess (Located ModuleName)
ModuleName
n
fromModuleName' _ = ""