+++ /dev/null
-interface Oberon_Integer where
-from_decimal_string :: [Char] -> Oberon_Integer
- {-# ARITY from_decimal_string = 1 #-}
-from_hex_string :: [Char] -> Oberon_Integer
- {-# ARITY from_hex_string = 1 #-}
-from_int :: Integer -> Oberon_Integer
- {-# ARITY from_int = 1 #-}
-isHexDigit :: Char -> Bool
- {-# ARITY isHexDigit = 1 #-}
-is_short_int :: Oberon_Integer -> Bool
- {-# ARITY is_short_int = 1 #-}
-data Oberon_Integer
-instance Eq Oberon_Integer
- {-# ARITY (==) = 2 #-}
- {-# ARITY (/=) = 0 #-}
-instance Text Oberon_Integer
- {-# ARITY readsPrec = 0 #-}
- {-# ARITY showsPrec = 2 #-}
- {-# ARITY readList = 0 #-}
- {-# ARITY showList = 0 #-}
-