aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/ViewPatterns/viewpatterns-casealt.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE ViewPatterns #-}

module ViewPatternsCaseAlt where

project :: a -> a
project x = x

useCase :: a -> a
useCase input =
  case input of
    (project -> x) -> x