ghc-exactprint-0.5.1.0: tests/examples/ghc8/T7669a.hs

{-# LANGUAGE EmptyCase #-}
{-# OPTIONS_GHC -fwarn-incomplete-patterns #-}

module T7669 where

data Void

foo :: Void -> ()
foo x = case x of {}