diff options
| author | Mario Blažević <blamario@protonmail.com> | 2022-08-13 18:36:04 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-08-22 22:06:21 -0400 |
| commit | fe4ff0f7cd50361cade3dd4bef15065dff075bfc (patch) | |
| tree | 3b47b4f98a83882d3f2893c569869e7605fd78c0 /testsuite/tests/th/T21723.hs | |
| parent | b946232c328ed88fc34a7c83a335b2f5a4f777ed (diff) | |
| download | haskell-fe4ff0f7cd50361cade3dd4bef15065dff075bfc.tar.gz | |
Fix and test for issue #21723
Diffstat (limited to 'testsuite/tests/th/T21723.hs')
| -rw-r--r-- | testsuite/tests/th/T21723.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/th/T21723.hs b/testsuite/tests/th/T21723.hs new file mode 100644 index 0000000000..17a0e73367 --- /dev/null +++ b/testsuite/tests/th/T21723.hs @@ -0,0 +1,8 @@ +module Main where + +import Language.Haskell.TH + +main :: IO () +main = do + putStrLn $ pprint (InfixT (ArrowT `AppT` StarT `AppT` StarT) (mkName ":>:") StarT) + putStrLn $ pprint (InfixT (ParensT $ ArrowT `AppT` StarT `AppT` StarT) (mkName ":>:") StarT) |