diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-08-03 08:44:44 +0100 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-08-03 08:44:44 +0100 |
commit | 619d8d89ec438061d7881e1ec99de01ea14a4090 (patch) | |
tree | 4ce2f8267ae46273dfe1de3b56d91bbc7a38a8a0 /testsuite/tests/th/T5358.hs | |
parent | 3eb85d3d77dabee843e6a158f21e28ff8cbe9dbe (diff) | |
download | haskell-619d8d89ec438061d7881e1ec99de01ea14a4090.tar.gz |
Test Trac #5358
Diffstat (limited to 'testsuite/tests/th/T5358.hs')
-rw-r--r-- | testsuite/tests/th/T5358.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/testsuite/tests/th/T5358.hs b/testsuite/tests/th/T5358.hs new file mode 100644 index 0000000000..39dec37faf --- /dev/null +++ b/testsuite/tests/th/T5358.hs @@ -0,0 +1,14 @@ +{-# LANGUAGE TemplateHaskell #-} +module T5358 where + +import Language.Haskell.TH + +t1, t2 :: Int +t1 x = x +t2 x = x + +prop_x1 x = t1 x == t2 x + +runTests = $( do VarI _ t _ _ <- reify (mkName "prop_x1") + error $ pprint t + ) |