testsuite: Assert that testsuite ways are known
[ghc.git] / testsuite / tests / th / T7681.hs
1 {-# LANGUAGE EmptyCase, TemplateHaskell, LambdaCase #-}
2
3 module T7681 where
4
5 data Void
6
7 foo :: Void -> a
8 foo x = $( [| case x of {} |] )
9
10 bar :: Void -> a
11 bar = $( [| \case {} |] )
12