aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/Hackage/ghc-hs-meta-record-field-view-pattern.hs
{- ORACLE_TEST pass -}
{-# LANGUAGE ViewPatterns #-}
module M where
data Box = Box {field :: Int}
f (Box {field = id -> x}) = x
{- ORACLE_TEST pass -}
{-# LANGUAGE ViewPatterns #-}
module M where
data Box = Box {field :: Int}
f (Box {field = id -> x}) = x