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
99e06971
Commit
99e06971
authored
Apr 05, 2008
by
simonpj
Browse files
Re-jig test for Trac 2188
parent
9ed556b8
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/th/TH_scope.hs
View file @
99e06971
-- Test for Trac #2188
module
TH_scope
where
import
TH_scope_helper
x
::
()
x
=
()
where
hold
=
$
(
wibble
[
d
|
hold :: ()
hold = ()
|]
)
f
g
=
[
d
|
f :: Int
f = g
g :: Int
g = 4
|]
testsuite/tests/ghc-regress/th/TH_scope_helper.hs
deleted
100644 → 0
View file @
9ed556b8
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 @
99e06971
...
...
@@ -83,5 +83,5 @@ test('TH_runIO', if_compiler_lt('ghc','6.9', namebase('TH_runIO-6.8')), compile_
test
('
TH_ghci1
',
normal
,
ghci_script
,
['
TH_ghci1.script
'])
test
('
TH_scope
',
expect_broken
(
2188
),
multimod_compile
,
['
TH_scope
',
'
-v0
'])
test
('
TH_scope
',
normal
,
compile
,
['
'])
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