diff options
author | Alfredo Di Napoli <alfredo.dinapoli@gmail.com> | 2019-07-13 18:07:17 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-07-20 07:52:01 -0400 |
commit | 7b42ece52049756e046729a7c6f43b544bfd9ea6 (patch) | |
tree | 30c2a5afc148d276f2fb88f37e9e5f2d7e873bd7 /testsuite/tests/typecheck/should_fail/T16874.hs | |
parent | 08ad7ef4d26d40f94ba01fdbcadc5c50aeba8ad8 (diff) | |
download | haskell-7b42ece52049756e046729a7c6f43b544bfd9ea6.tar.gz |
Line wrap when pp long expressions (fixes #16874)
This commit fixes #16874 by using `fsep` rather than `sep` when pretty
printing long patterns and expressions.
Diffstat (limited to 'testsuite/tests/typecheck/should_fail/T16874.hs')
-rw-r--r-- | testsuite/tests/typecheck/should_fail/T16874.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/testsuite/tests/typecheck/should_fail/T16874.hs b/testsuite/tests/typecheck/should_fail/T16874.hs new file mode 100644 index 0000000000..422340078e --- /dev/null +++ b/testsuite/tests/typecheck/should_fail/T16874.hs @@ -0,0 +1,12 @@ + +module Main where + +type A = Int +data D = D A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A + +test :: D -> D +test (D a b c d e f g h i j k l m n o p q r s t u v w x y z aa bb cc dd ee ff gg hh ii jj kk ll mm nn) + = D a b c d e f g h i j k l m n o p q r s t u v w x y z aa bb cc dd ee ff gg hh ii jj kk ll mm nn + +main :: IO () +main = print () |