aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/BangPatterns/bang-let-binding.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE BangPatterns #-}

module BangPatternsLetBinding where

strictPair :: (Int, Int) -> Int
strictPair pair =
  let !(x, y) = pair
   in x + y