aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/ViewPatterns/viewpatterns-funarg.hs
{- ORACLE_TEST pass -}
{-# LANGUAGE ViewPatterns #-}
module ViewPatternsFunArg where
project :: a -> a
project x = x
useView :: a -> a
useView (project -> x) = x{- ORACLE_TEST pass -}
{-# LANGUAGE ViewPatterns #-}
module ViewPatternsFunArg where
project :: a -> a
project x = x
useView :: a -> a
useView (project -> x) = x