diff options
Diffstat (limited to 'utils/genprimopcode/Syntax.hs')
| -rw-r--r-- | utils/genprimopcode/Syntax.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/utils/genprimopcode/Syntax.hs b/utils/genprimopcode/Syntax.hs index 17c264d44a..b848863135 100644 --- a/utils/genprimopcode/Syntax.hs +++ b/utils/genprimopcode/Syntax.hs @@ -96,14 +96,18 @@ instance Show TyCon where -- Follow definitions of Fixity and FixityDirection in GHC --- The String exists so that it matches the SourceText field in +-- The SourceText exists so that it matches the SourceText field in -- BasicTypes.Fixity -data Fixity = Fixity String Int FixityDirection +data Fixity = Fixity SourceText Int FixityDirection deriving (Eq, Show) data FixityDirection = InfixN | InfixL | InfixR deriving (Eq, Show) +data SourceText = SourceText String + | NoSourceText + deriving (Eq,Show) + ------------------------------------------------------------------ -- Sanity checking ----------------------------------------------- ------------------------------------------------------------------ |