Commit 4405f9de authored by Ben Gamari's avatar Ben Gamari 🐢

Add failing testcase for #10603

parent 831102f0
{-# LANGUAGE TemplateHaskell #-}
module T10603 where
main = print $ $([| case Just 'a' of Just a -> Just ((\x -> x) a) |])
T10603.hs:5:18-68: Splicing expression
[| case Just 'a' of {
Just a_atn -> Just ((\ x_ato -> x_ato) a_atn) } |]
======>
case Just 'a' of {
Just a_a4uM -> Just ((\ x_a4uN -> x_a4uN) a_a4uM) }
......@@ -397,3 +397,4 @@ test('T11341', normal, compile, ['-v0 -dsuppress-uniques'])
test('T11345', normal, compile_and_run, ['-v0 -dsuppress-uniques'])
test('TH_finalizer', normal, compile, ['-v0'])
test('T10603', expect_broken(10603), compile, ['-ddump-splices'])
\ 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