Commit b34aa2cd authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #5508

parent 50029f69
{-# LANGUAGE TemplateHaskell #-}
module T5508 where
import Language.Haskell.TH
thb = $(do { let x = mkName "x"
v = return (LamE [VarP x] $ VarE x)
; [| $v . id |] })
T5508.hs:(7,9)-(9,28): Splicing expression
do { let x = mkName "x"
v = return (LamE [VarP x] $ VarE x);
[| $v . id |] }
======>
((\ x -> x) . id)
...@@ -207,3 +207,4 @@ test('TH_lookupName', ...@@ -207,3 +207,4 @@ test('TH_lookupName',
test('T5452', normal, compile, ['-v0']) test('T5452', normal, compile, ['-v0'])
test('T5434', extra_clean(['T5434a.hi','T5434a.o']), test('T5434', extra_clean(['T5434a.hi','T5434a.o']),
multimod_compile, ['T5434','-v0 -Wall']) multimod_compile, ['T5434','-v0 -Wall'])
test('T5508', normal, compile, ['-v0 -ddump-splices'])
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