[project @ 1996-01-08 20:28:12 by partain]
[ghc.git] / ghc / compiler / tests / rename / bevan-bug-1 / Oberon_String.hi
1 interface Oberon_String where
2 from_string :: [Char] -> Oberon_String
3         {-# ARITY from_string = 1 #-}
4 data Oberon_String 
5 instance Eq Oberon_String
6         {-# ARITY (==) = 2 #-}
7         {-# ARITY (/=) = 0 #-}
8 instance Text Oberon_String
9         {-# ARITY readsPrec = 0 #-}
10         {-# ARITY showsPrec = 2 #-}
11         {-# ARITY readList = 0 #-}
12         {-# ARITY showList = 0 #-}
13