diff options
Diffstat (limited to 'testsuite/tests/printer/PprArrowLambdaCase.hs')
| -rw-r--r-- | testsuite/tests/printer/PprArrowLambdaCase.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/printer/PprArrowLambdaCase.hs b/testsuite/tests/printer/PprArrowLambdaCase.hs index c678339890..9760d1372e 100644 --- a/testsuite/tests/printer/PprArrowLambdaCase.hs +++ b/testsuite/tests/printer/PprArrowLambdaCase.hs @@ -16,3 +16,11 @@ foo = proc x -> | otherwise -> returnA -< "small " ++ show x Nothing -> returnA -< "none") |) x + +foo :: ArrowChoice p => p (Maybe Int) String +foo = proc x -> + (| id (\cases + y (Just x) | x > 100 -> returnA -< "big " ++ show x + | otherwise -> returnA -< "small " ++ show x + _ Nothing -> returnA -< "none") + |) 1 x |