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

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

module ViewPatternsTupleSecond where

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