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

   1 interface Oberon_Id where
   2 from_string :: [Char] -> Oberon_Id
   3         {-# ARITY from_string = 1 #-}
   4 to_string :: Oberon_Id -> [Char]
   5         {-# ARITY to_string = 1 #-}
   6 data Oberon_Id
   7 instance Eq Oberon_Id
   8         {-# ARITY (==) = 2 #-}
   9         {-# ARITY (/=) = 0 #-}
  10 instance Text Oberon_Id
  11         {-# ARITY readsPrec = 0 #-}
  12         {-# ARITY showsPrec = 2 #-}
  13         {-# ARITY readList = 0 #-}
  14         {-# ARITY showList = 0 #-}
  15