aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/BangPatterns/bang-lambda.hs
{- ORACLE_TEST pass -}
{-# LANGUAGE BangPatterns #-}
module BangPatternsLambda where
applyStrict :: (Int -> Int) -> Int -> Int
applyStrict f = (\ !x -> f x){- ORACLE_TEST pass -}
{-# LANGUAGE BangPatterns #-}
module BangPatternsLambda where
applyStrict :: (Int -> Int) -> Int -> Int
applyStrict f = (\ !x -> f x)