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

module Warnings (zoo) where

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