aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/ViewPatterns/viewpatterns-tuple-middle.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE ViewPatterns #-}

module ViewPatternsTupleMiddle where

f :: (a, b -> c, d) -> b -> (a, c, d)
f (x, g -> y, z) b = (x, g b, z)