Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
b34aa2cd
Commit
b34aa2cd
authored
Sep 29, 2011
by
Simon Peyton Jones
Browse files
Test Trac
#5508
parent
50029f69
Changes
3
Show whitespace changes
Inline
Side-by-side
testsuite/tests/th/T5508.hs
0 → 100644
View file @
b34aa2cd
{-# LANGUAGE TemplateHaskell #-}
module
T5508
where
import
Language.Haskell.TH
thb
=
$
(
do
{
let
x
=
mkName
"x"
v
=
return
(
LamE
[
VarP
x
]
$
VarE
x
)
;
[
|
$
v
.
id
|
]
})
testsuite/tests/th/T5508.stderr
0 → 100644
View file @
b34aa2cd
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)
testsuite/tests/th/all.T
View file @
b34aa2cd
...
...
@@ -207,3 +207,4 @@ test('TH_lookupName',
test
('
T5452
',
normal
,
compile
,
['
-v0
'])
test
('
T5434
',
extra_clean
(['
T5434a.hi
','
T5434a.o
']),
multimod_compile
,
['
T5434
','
-v0 -Wall
'])
test
('
T5508
',
normal
,
compile
,
['
-v0 -ddump-splices
'])
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment