fourmolu-0.2.0.0: data/examples/declaration/value/function/arrow/multiline-case-four-out.hs

{-# LANGUAGE Arrows #-}

f = proc x -> do
    x <-
        case x of X -> x
            -<
                y
    a -< b