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

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

module BangPatternsLetGuarded where

test :: Bool -> Int
test positive =
  let !x | True = 1
   in x