1 2 3 4 5 6 7 8
{-# LANGUAGE LambdaCase #-} module NoBlockArgumentsFail3 where import Control.Monad foo :: IO () foo = forM [1 .. 10] \case Just 3 -> print x