diff options
| author | Alexis King <lexi.lambda@gmail.com> | 2020-04-19 20:11:37 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-04-30 01:57:35 -0400 |
| commit | a48cd2a045695c5f34ed7b00184a8d91c4fcac0e (patch) | |
| tree | 526d1b2e19ce1b8ffcaeb73688999a255de2ef2e /testsuite/tests/parser/should_compile | |
| parent | 71484b09fa3c676e99785b3d68f69d4cfb14266e (diff) | |
| download | haskell-a48cd2a045695c5f34ed7b00184a8d91c4fcac0e.tar.gz | |
Allow LambdaCase to be used as a command in proc notation
Diffstat (limited to 'testsuite/tests/parser/should_compile')
| -rw-r--r-- | testsuite/tests/parser/should_compile/ParserArrowLambdaCase.hs | 8 | ||||
| -rw-r--r-- | testsuite/tests/parser/should_compile/all.T | 1 |
2 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/parser/should_compile/ParserArrowLambdaCase.hs b/testsuite/tests/parser/should_compile/ParserArrowLambdaCase.hs new file mode 100644 index 0000000000..b16eb7579b --- /dev/null +++ b/testsuite/tests/parser/should_compile/ParserArrowLambdaCase.hs @@ -0,0 +1,8 @@ +{-# LANGUAGE Arrows, LambdaCase #-} +module ParserArrowLambdaCase where + +import Control.Arrow + +foo :: () -> () +foo = proc () -> (| id (\case + () -> () >- returnA) |) () diff --git a/testsuite/tests/parser/should_compile/all.T b/testsuite/tests/parser/should_compile/all.T index fd69d32f0f..1568a341ec 100644 --- a/testsuite/tests/parser/should_compile/all.T +++ b/testsuite/tests/parser/should_compile/all.T @@ -94,6 +94,7 @@ test('mc15', normal, compile, ['']) test('mc16', normal, compile, ['']) test('EmptyDecls', normal, compile, ['']) test('ParserLambdaCase', [], compile, ['']) +test('ParserArrowLambdaCase', [], compile, ['']) test('ColumnPragma', normal, compile, ['']) test('T5243', [], multimod_compile, ['T5243', '']) |