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

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

module ViewPatternsGuardQualifier where

f :: Maybe Int -> Int
f x
  | (id -> Just y) <- x = y
  | otherwise = 0