Commit 67506768 authored by eir@cis.upenn.edu's avatar eir@cis.upenn.edu

Added testcase for Trac #7681, a Template Haskell missing feature.

parent 716d83b0
{-# LANGUAGE EmptyCase, TemplateHaskell, LambdaCase #-}
module T7681 where
data Void
foo :: Void -> a
foo x = $( [| case x of {} |] )
bar :: Void -> a
bar = $( [| \case {} |] )
......@@ -269,3 +269,4 @@ test('T7532',
['T7532', '-v0'])
test('T2222', normal, compile, ['-v0'])
test('T1849', normal, ghci_script, ['T1849.script'])
test('T7681', normal, compile, ['-v0'])
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment