Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
fdf6cc72
Commit
fdf6cc72
authored
Feb 02, 2013
by
ian@well-typed.com
Browse files
Add a test for
#1849
parent
4ff945c7
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/th/T1849.script
0 → 100644
View file @
fdf6cc72
:set -XTemplateHaskell
import Language.Haskell.TH
let seeType n = do VarI _ t _ _ <- reify n; runIO $ putStrLn $ show t; [| return True |]
let f = undefined :: Int -> Int
let g = undefined :: [Int]
let h = undefined :: (Int, Int)
$(seeType (mkName "f"))
$(seeType (mkName "g"))
$(seeType (mkName "h"))
testsuite/tests/th/T1849.stdout
0 → 100644
View file @
fdf6cc72
AppT (AppT ArrowT (ConT GHC.Types.Int)) (ConT GHC.Types.Int)
True
AppT ListT (ConT GHC.Types.Int)
True
AppT (AppT (TupleT 2) (ConT GHC.Types.Int)) (ConT GHC.Types.Int)
True
testsuite/tests/th/all.T
View file @
fdf6cc72
...
...
@@ -268,3 +268,4 @@ test('T7532',
multimod_compile
,
['
T7532
',
'
-v0
'])
test
('
T2222
',
normal
,
compile
,
['
-v0
'])
test
('
T1849
',
normal
,
ghci_script
,
['
T1849.script
'])
Write
Preview
Markdown
is supported
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