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

{-# LANGUAGE Arrows #-}

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