Permalink
Browse files

Add a test for #7776

  • Loading branch information...
1 parent 18eed4d commit f0a3b1c026e7dd1b4a36918bd68af4f6907b388d @igfoo igfoo committed Mar 18, 2013
Showing with 7 additions and 0 deletions.
  1. +6 −0 tests/parser/should_compile/T7776.hs
  2. +1 −0 tests/parser/should_compile/all.T
View
6 tests/parser/should_compile/T7776.hs
@@ -0,0 +1,6 @@
+
+module T7776 where
+
+f :: Int -> Int -> Int
+f x y = let a ~# b = a + b
+ in x ~# y
View
1 tests/parser/should_compile/all.T
@@ -95,3 +95,4 @@ test('ParserLambdaCase', when(compiler_lt('ghc', '7.5'), skip), compile, [''])
test('T5243', extra_clean(['T5243A.hi', 'T5243A.o']),
multimod_compile, ['T5243',''])
test('T7118', normal, compile, [''])
+test('T7776', normal, compile, [''])

0 comments on commit f0a3b1c

Please sign in to comment.