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 _ = "" -- {-# COMPLETE LL #-}

fromModuleName' :: Located ModuleName -> String
fromModuleName' :: Located ModuleName -> String
fromModuleName' (LL _ n :: SrcSpanLess (Located ModuleName)
n) = ModuleName -> String
moduleNameString SrcSpanLess (Located ModuleName)
ModuleName
n
fromModuleName' _ = "" -- {# COMPLETE LL #}