ghc-mod-5.8.0.0: test/data/check-missing-warnings/DesugarWarnings.hs

module Warnings (zoo) where

zoo :: [a] -> ()
zoo x = case x of
          [] -> undefined