ghc-exactprint-1.9.0.0: tests/examples/pre-ghc910/T9951.hs
{-# LANGUAGE OverloadedLists #-}
{-# OPTIONS_GHC -fwarn-incomplete-patterns -fwarn-overlapping-patterns #-}
module T9951 where
f :: [a] -> ()
f x = case x of
[] -> ()
(_:_) -> ()
{-# LANGUAGE OverloadedLists #-}
{-# OPTIONS_GHC -fwarn-incomplete-patterns -fwarn-overlapping-patterns #-}
module T9951 where
f :: [a] -> ()
f x = case x of
[] -> ()
(_:_) -> ()