aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/LambdaCase/lambda-case-locally-bound.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE LambdaCase #-}

module LambdaCaseLocallyBound where

select :: Either Int Int -> Int
select e =
  let pick = \case
        Left x -> x
        Right y -> y
   in pick e