haskell-names-0.9.7: tests/annotations/ViewPats.hs

{-# LANGUAGE ViewPatterns #-}
module ViewPats where

f (y -> x) z@(x -> y) = do
  x
  y
  z