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

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

module PatternGuardSingle where

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