ghc-exactprint-0.5.3.1: tests/examples/ghc80/T7669a.hs

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

module T7669 where

data Void

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