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

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

diff --git a/ghc/compiler/tests/rename/bevan-bug-1/Source_Position.hi b/ghc/compiler/tests/rename/bevan-bug-1/Source_Position.hi
new file mode 100644 (file)
index 0000000..f0583e9
--- /dev/null
+++ b/ghc/compiler/tests/rename/bevan-bug-1/Source_Position.hi
@@ -0,0 +1,18 @@
+interface Source_Position where
+make :: Int -> Int -> Source_Position
+       {-# ARITY make = 2 #-}
+next_line :: Source_Position -> Source_Position
+       {-# ARITY next_line = 1 #-}
+shift_column :: Source_Position -> Int -> Source_Position
+       {-# ARITY shift_column = 2 #-}
+show_pos :: Source_Position -> [Char] -> [Char]
+       {-# ARITY show_pos = 1 #-}
+start :: Source_Position
+       {-# ARITY start = 0 #-}
+data Source_Position = Source_Position Int Int
+instance Text Source_Position
+       {-# ARITY readsPrec = 0 #-}
+       {-# ARITY showsPrec = 2 #-}
+       {-# ARITY readList = 0 #-}
+       {-# ARITY showList = 0 #-}
+