diff options
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/th/T20185.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/th/T20185.stdout | 1 |
2 files changed, 3 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 |] diff --git a/testsuite/tests/th/T20185.stdout b/testsuite/tests/th/T20185.stdout index 7792ee2117..c888f39fa4 100644 --- a/testsuite/tests/th/T20185.stdout +++ b/testsuite/tests/th/T20185.stdout @@ -1,6 +1,7 @@ 1 1 1 +ProjectionE ("foo" :| ["bar"]) T20185a.x.foo.bar (GHC.Base.id T20185a.x).foo.bar (GHC.Base.id (GHC.Base.id T20185a.x).foo).bar |