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

foo :: Int -> Int
foo x = case x of
  5 -> 10
  _ -> 12

bar :: Int -> Int
bar x =
  case x of
    5 ->
      if x > 5
        then 10
        else 12
    _ -> 12

baz :: Int -> Int
baz x = case x of
  5 -> 10
  _ -> 12

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

funnyComment =
  -- comment
  case () of
    () -> ()