diff options
Diffstat (limited to 'testsuite/tests/th/T20185.hs')
| -rw-r--r-- | testsuite/tests/th/T20185.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/testsuite/tests/th/T20185.hs b/testsuite/tests/th/T20185.hs index a48d3fddd4..c6d4781b26 100644 --- a/testsuite/tests/th/T20185.hs +++ b/testsuite/tests/th/T20185.hs @@ -22,6 +22,8 @@ main = do print i print j print (k x) + y <- [| (.foo.bar) |] + print y putStrLn . pprint =<< [| x.foo.bar |] putStrLn . pprint =<< [| (id x).foo.bar |] putStrLn . pprint =<< [| (id (id x).foo).bar |] |