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

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

module PatternGuardCaseAlt where

asPair :: Maybe a -> [a]
asPair value =
  case value of
    m
      | Just x <- m -> [x, x]
      | otherwise -> []