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

   1 interface Lexer_Token where
   2 import Lexeme(Lexeme)
   3 import Source_Position(Source_Position)
   4 kind :: Token -> Lexeme
   5         {-# ARITY kind = 1 #-}
   6 make :: Source_Position -> Lexeme -> Token
   7         {-# ARITY make = 2 #-}
   8 position :: Token -> Source_Position
   9         {-# ARITY position = 1 #-}
  10 data Token = Token Lexeme Source_Position
  11 instance Text Token
  12         {-# ARITY readsPrec = 0 #-}
  13         {-# ARITY showsPrec = 2 #-}
  14         {-# ARITY readList = 0 #-}
  15         {-# ARITY showList = 0 #-}
  16