testsuite/tests/parser/should_compile/BlockArgumentsLambdaCase.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

{-# LANGUAGE BlockArguments, LambdaCase #-}

module BlockArgumentsLambdaCase where

import Control.Monad

foo' :: IO ()
foo' = do
  forM [Just 3, Nothing] \case
    Just 3 -> print 3
    _ -> print 5

  return ()