summaryrefslogtreecommitdiff
path: root/ghc/compiler/tests/rename/bevan-bug-1/Lexer_Combinators.hi
diff options
context:
space:
mode:
Diffstat (limited to 'ghc/compiler/tests/rename/bevan-bug-1/Lexer_Combinators.hi')
-rw-r--r--ghc/compiler/tests/rename/bevan-bug-1/Lexer_Combinators.hi11
1 files changed, 11 insertions, 0 deletions
diff --git a/ghc/compiler/tests/rename/bevan-bug-1/Lexer_Combinators.hi b/ghc/compiler/tests/rename/bevan-bug-1/Lexer_Combinators.hi
new file mode 100644
index 0000000000..a554bbc605
--- /dev/null
+++ b/ghc/compiler/tests/rename/bevan-bug-1/Lexer_Combinators.hi
@@ -0,0 +1,11 @@
+interface Lexer_Combinators where
+import Lexer_State(Lexer_State)
+and_also :: (Lexer_State -> (b, Lexer_State)) -> (Lexer_State -> (a, Lexer_State)) -> Lexer_State -> (b, Lexer_State)
+ {-# ARITY and_also = 3 #-}
+and_then :: (Lexer_State -> (a, Lexer_State)) -> (Lexer_State -> (b, Lexer_State)) -> Lexer_State -> (b, Lexer_State)
+ {-# ARITY and_then = 3 #-}
+and_with :: (Lexer_State -> (a, Lexer_State)) -> (a -> Lexer_State -> (b, Lexer_State)) -> Lexer_State -> (b, Lexer_State)
+ {-# ARITY and_with = 3 #-}
+return :: a -> Lexer_State -> (a, Lexer_State)
+ {-# ARITY return = 2 #-}
+