[project @ 2000-10-12 15:17:07 by sewardj]

[ghc-hetmet.git] / ghc / compiler / basicTypes / Module.lhs

diff --git a/ghc/compiler/basicTypes/Module.lhs b/ghc/compiler/basicTypes/Module.lhs
index 7a4e91d..61e6251 100644 (file)
--- a/ghc/compiler/basicTypes/Module.lhs
+++ b/ghc/compiler/basicTypes/Module.lhs
@@ -29,6 +29,7 @@ module Module
 
     , moduleNameString         -- :: ModuleName -> EncodedString
     , moduleNameUserString     -- :: ModuleName -> UserString
+    , moduleNameFS             -- :: ModuleName -> EncodedFS
 
     , moduleString             -- :: Module -> EncodedString
     , moduleUserString         -- :: Module -> UserString
@@ -168,6 +169,9 @@ instance Outputable ModuleName where
 pprModuleName :: ModuleName -> SDoc
 pprModuleName (ModuleName nm) = pprEncodedFS nm
 
+moduleNameFS :: ModuleName -> EncodedFS
+moduleNameFS (ModuleName mod) = mod
+
 moduleNameString :: ModuleName -> EncodedString
 moduleNameString (ModuleName mod) = _UNPK_ mod