[project @ 1996-01-08 20:28:12 by partain]

[ghc-hetmet.git] / ghc / compiler / tests / rename / bevan-bug-1 / Oberon_Integer.hi

diff --git a/ghc/compiler/tests/rename/bevan-bug-1/Oberon_Integer.hi b/ghc/compiler/tests/rename/bevan-bug-1/Oberon_Integer.hi
new file mode 100644 (file)
index 0000000..ef0f1ec
--- /dev/null
+++ b/ghc/compiler/tests/rename/bevan-bug-1/Oberon_Integer.hi
@@ -0,0 +1,21 @@
+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 #-}
+