Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
33c70ee8
Commit
33c70ee8
authored
Mar 30, 2008
by
Ian Lynagh
Browse files
Add a test TH_scope for trac#2188
parent
27e2c4bb
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/th/TH_scope.hs
0 → 100644
View file @
33c70ee8
module
TH_scope
where
import
TH_scope_helper
x
::
()
x
=
()
where
hold
=
$
(
wibble
[
d
|
hold :: ()
hold = ()
|]
)
testsuite/tests/ghc-regress/th/TH_scope_helper.hs
0 → 100644
View file @
33c70ee8
module
TH_scope_helper
where
import
Language.Haskell.TH
wibble
::
Q
[
Dec
]
->
Q
Exp
wibble
_
=
[
|
'a'
|
]
testsuite/tests/ghc-regress/th/all.T
View file @
33c70ee8
...
...
@@ -82,3 +82,6 @@ test('TH_scopedTvs', normal, compile_fail, ['-v0'])
test
('
TH_runIO
',
if_compiler_lt
('
ghc
','
6.9
',
namebase
('
TH_runIO-6.8
')),
compile_fail
,
['
-v0
'])
test
('
TH_ghci1
',
normal
,
ghci_script
,
['
TH_ghci1.script
'])
test
('
TH_scope
',
expect_broken
(
2188
),
multimod_compile
,
['
TH_scope
',
'
-v0
'])
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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