aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/BangPatterns/bang-case-alt.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE BangPatterns #-}

module BangPatternsCaseAlt where

headStrict :: [Int] -> Maybe Int
headStrict xs =
  case xs of
    ![] -> Nothing
    !(y : _) -> Just y