diff options
Diffstat (limited to 'testsuite/tests/th/overloaded/TH_overloaded_csp.hs')
-rw-r--r-- | testsuite/tests/th/overloaded/TH_overloaded_csp.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/th/overloaded/TH_overloaded_csp.hs b/testsuite/tests/th/overloaded/TH_overloaded_csp.hs index c87707c01e..ea74e00d24 100644 --- a/testsuite/tests/th/overloaded/TH_overloaded_csp.hs +++ b/testsuite/tests/th/overloaded/TH_overloaded_csp.hs @@ -14,5 +14,5 @@ instance Quote Identity where main = do print $ runIdentity ((\x -> [| x |]) ()) - print $ unType $ runIdentity ((\x -> [|| x ||]) ()) + print $ runIdentity $ unTypeCode ((\x -> [|| x ||]) ()) |