summaryrefslogtreecommitdiff
path: root/utils/genprimopcode/Syntax.hs
diff options
context:
space:
mode:
Diffstat (limited to 'utils/genprimopcode/Syntax.hs')
-rw-r--r--utils/genprimopcode/Syntax.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/utils/genprimopcode/Syntax.hs b/utils/genprimopcode/Syntax.hs
index 68b20adbdd..17c264d44a 100644
--- a/utils/genprimopcode/Syntax.hs
+++ b/utils/genprimopcode/Syntax.hs
@@ -96,7 +96,9 @@ instance Show TyCon where
-- Follow definitions of Fixity and FixityDirection in GHC
-data Fixity = Fixity Int FixityDirection
+-- The String exists so that it matches the SourceText field in
+-- BasicTypes.Fixity
+data Fixity = Fixity String Int FixityDirection
deriving (Eq, Show)
data FixityDirection = InfixN | InfixL | InfixR