aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/PatternGuards/pattern-guard-multi-qualifiers.hs

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

module PatternGuardMultiQualifiers where

firstPositive :: [Int] -> Int
firstPositive xs
  | y : _ <- xs, y > 0 = y
  | otherwise = 0