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