ghc-exactprint-1.14.0.0: tests/examples/pre-ghc910/T7669a.hs

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

module T7669 where

data Void

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