[project @ 1996-01-08 20:28:12 by partain]
[ghc-hetmet.git] / ghc / compiler / tests / rename / bevan-bug-1 / Oberon_Integer.hi
1 interface Oberon_Integer where
2 from_decimal_string :: [Char] -> Oberon_Integer
3         {-# ARITY from_decimal_string = 1 #-}
4 from_hex_string :: [Char] -> Oberon_Integer
5         {-# ARITY from_hex_string = 1 #-}
6 from_int :: Integer -> Oberon_Integer
7         {-# ARITY from_int = 1 #-}
8 isHexDigit :: Char -> Bool
9         {-# ARITY isHexDigit = 1 #-}
10 is_short_int :: Oberon_Integer -> Bool
11         {-# ARITY is_short_int = 1 #-}
12 data Oberon_Integer 
13 instance Eq Oberon_Integer
14         {-# ARITY (==) = 2 #-}
15         {-# ARITY (/=) = 0 #-}
16 instance Text Oberon_Integer
17         {-# ARITY readsPrec = 0 #-}
18         {-# ARITY showsPrec = 2 #-}
19         {-# ARITY readList = 0 #-}
20         {-# ARITY showList = 0 #-}
21