ghc/compiler/tests/rename/bevan-bug-1/Lexeme.hi

   1 interface Lexeme where
   2 import Oberon_Id(Oberon_Id)
   3 import Oberon_Integer(Oberon_Integer)
   4 import Oberon_Real(Oberon_Real)
   5 import Oberon_String(Oberon_String)
   6 import Symbol(Symbol)
   7 show_lexeme :: Lexeme -> [Char] -> [Char]
   8         {-# ARITY show_lexeme = 0 #-}
   9 data Lexeme = Symbol_Lexeme Symbol | Id_Lexeme Oberon_Id | Int_Lexeme Oberon_Integer | Real_Lexeme Oberon_Real | Long_Real_Lexeme Oberon_Real | String_Lexeme Oberon_String | Char_Lexeme Oberon_Integer | Error_Lexeme Char | EOF_Lexeme | Unterminated_String_Lexeme | Unterminated_Comment_Lexeme | Malformed_Hex_Integer | Malformed_Real_Number
  10 instance Eq Lexeme
  11         {-# ARITY (==) = 2 #-}
  12         {-# ARITY (/=) = 0 #-}
  13 instance Text Lexeme
  14         {-# ARITY readsPrec = 0 #-}
  15         {-# ARITY showsPrec = 2 #-}
  16         {-# ARITY readList = 0 #-}
  17         {-# ARITY showList = 0 #-}
  18