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

{-# LANGUAGE Arrows #-}

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