fourmolu-0.0.6.0: data/examples/declaration/value/function/case-single-line.hs

foo :: Int -> Int
foo x = case x of x -> x

foo :: IO ()
foo = case [1] of [_] -> "singleton"; _ -> "not singleton"
foo = case [1] of { [] -> foo; _ -> bar } `finally` baz