data/examples/declaration/value/function/case-single-line.hs · ormolu

on 625f239 help sign in

6 lines 172 B history raw

1foo :: Int -> Int

2foo x = case x of x -> x

4foo :: IO ()

5foo = case [1] of [_] -> "singleton"; _ -> "not singleton"

6foo = case [1] of { [] -> foo; _ -> bar } `finally` baz