fourmolu-0.2.0.0: data/examples/declaration/value/function/case-multi-line-four-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
        () -> ()