[project @ 1996-01-08 20:28:12 by partain]
[ghc-hetmet.git] / ghc / compiler / tests / rename / bevan-bug-1 / Lexer_Buffer.hi
1 interface Lexer_Buffer where
2 add :: Char -> Lexer_Buffer -> Lexer_Buffer
3         {-# ARITY add = 2 #-}
4 empty :: Lexer_Buffer
5         {-# ARITY empty = 0 #-}
6 flush :: Lexer_Buffer -> Lexer_Buffer
7         {-# ARITY flush = 1 #-}
8 len :: Lexer_Buffer -> Int
9         {-# ARITY len = 1 #-}
10 to_string :: Lexer_Buffer -> [Char]
11         {-# ARITY to_string = 1 #-}
12 data Lexer_Buffer 
13