1{-# LANGUAGE LambdaCase #-} 2module LambdaCase where 3foo 4 = \case 5 Nothing -> e1 6 Just e2 -> e2 7bar 8 = \case 9 _ -> True 10