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