diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2017-07-10 13:00:36 +0200 |
|---|---|---|
| committer | Alan Zimmerman <alan.zimm@gmail.com> | 2017-07-10 13:03:45 +0200 |
| commit | c506f8353755333e21d5ee35bc71d2c8f9ddcb1b (patch) | |
| tree | 9a9db27e35388afca81dcb3596445894165c3382 /testsuite/tests/printer/all.T | |
| parent | 81377e9e4bd52256946114d9c1dd966d5e3e7692 (diff) | |
| download | haskell-c506f8353755333e21d5ee35bc71d2c8f9ddcb1b.tar.gz | |
Pretty-printer no longer butchers function arrow fixity
It now correctly prints the parens around '(Int -> Int)' in
{-# LANGUAGE TemplateHaskell #-}
{-# OPTIONS_GHC -ddump-splices #-}
module Bug where
$([d| f :: Either Int (Int -> Int)
f = undefined
|])
Closes #13942
Diffstat (limited to 'testsuite/tests/printer/all.T')
| -rw-r--r-- | testsuite/tests/printer/all.T | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/testsuite/tests/printer/all.T b/testsuite/tests/printer/all.T index c939e49300..a71d6e3534 100644 --- a/testsuite/tests/printer/all.T +++ b/testsuite/tests/printer/all.T @@ -49,3 +49,4 @@ test('Ppr048', ignore_stderr, run_command, ['$MAKE -s --no-print-directory ppr04 test('T13199', ignore_stderr, run_command, ['$MAKE -s --no-print-directory T13199']) test('T13050p', ignore_stderr, run_command, ['$MAKE -s --no-print-directory T13050p']) test('T13550', ignore_stderr, run_command, ['$MAKE -s --no-print-directory T13550']) +test('T13942', ignore_stderr, run_command, ['$MAKE -s --no-print-directory T13942']) |