[project @ 1996-01-08 20:28:12 by partain]

[ghc-hetmet.git] / ghc / compiler / tests / rename / bevan-bug-1 / Lexer_Token.hi

diff --git a/ghc/compiler/tests/rename/bevan-bug-1/Lexer_Token.hi b/ghc/compiler/tests/rename/bevan-bug-1/Lexer_Token.hi
new file mode 100644 (file)
index 0000000..68dff3b
--- /dev/null
+++ b/ghc/compiler/tests/rename/bevan-bug-1/Lexer_Token.hi
@@ -0,0 +1,16 @@
+interface Lexer_Token where
+import Lexeme(Lexeme)
+import Source_Position(Source_Position)
+kind :: Token -> Lexeme
+       {-# ARITY kind = 1 #-}
+make :: Source_Position -> Lexeme -> Token
+       {-# ARITY make = 2 #-}
+position :: Token -> Source_Position
+       {-# ARITY position = 1 #-}
+data Token = Token Lexeme Source_Position
+instance Text Token
+       {-# ARITY readsPrec = 0 #-}
+       {-# ARITY showsPrec = 2 #-}
+       {-# ARITY readList = 0 #-}
+       {-# ARITY showList = 0 #-}
+