diff options
| author | romes <rodrigo.m.mesquita@gmail.com> | 2022-05-14 12:12:19 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-07-03 14:11:31 -0400 |
| commit | 3a8970ac0c69335a1d229f9c9a71e6e333e99bfb (patch) | |
| tree | 28a786d6e3bbc40b068cc7fe10433a9a8037b1d6 /compiler/GHC/Unit/Module/Name.hs | |
| parent | 9e79f6d09c9fbd81150a45d307f753141453c945 (diff) | |
| download | haskell-3a8970ac0c69335a1d229f9c9a71e6e333e99bfb.tar.gz | |
TTG: Move HsModule to L.H.S
Move the definition of HsModule defined in GHC.Hs to
Language.Haskell.Syntax with an added TTG parameter and corresponding
extension fields.
This is progress towards having the haskell-syntax package, as described
in #21592
Diffstat (limited to 'compiler/GHC/Unit/Module/Name.hs')
| -rw-r--r-- | compiler/GHC/Unit/Module/Name.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/compiler/GHC/Unit/Module/Name.hs b/compiler/GHC/Unit/Module/Name.hs index cc5e430bd6..9860914502 100644 --- a/compiler/GHC/Unit/Module/Name.hs +++ b/compiler/GHC/Unit/Module/Name.hs @@ -1,7 +1,7 @@ -- | The ModuleName type module GHC.Unit.Module.Name - ( ModuleName + ( module Language.Haskell.Syntax , pprModuleName , moduleNameFS , moduleNameString @@ -13,6 +13,8 @@ module GHC.Unit.Module.Name ) where +import {-# SOURCE #-} Language.Haskell.Syntax (ModuleName(..)) + import GHC.Prelude import GHC.Utils.Outputable @@ -29,9 +31,6 @@ import qualified Text.ParserCombinators.ReadP as Parse import Text.ParserCombinators.ReadP (ReadP) import Data.Char (isAlphaNum) --- | A ModuleName is essentially a simple string, e.g. @Data.List@. -newtype ModuleName = ModuleName FastString deriving Show - instance Uniquable ModuleName where getUnique (ModuleName nm) = getUnique nm |