aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/MultiWayIf/pattern-guards.hs
{- ORACLE_TEST pass -}
{-# LANGUAGE MultiWayIf #-}
module PatternGuards where
f :: Maybe Int -> Int
f m = if | Just x <- m, x > 0 -> x
| otherwise -> 0{- ORACLE_TEST pass -}
{-# LANGUAGE MultiWayIf #-}
module PatternGuards where
f :: Maybe Int -> Int
f m = if | Just x <- m, x > 0 -> x
| otherwise -> 0