diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2016-12-13 14:59:35 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-12-13 15:38:34 -0500 |
| commit | 8ec864d08c09a8aa7aabc4abf30186e5f3995ad4 (patch) | |
| tree | 0351647ff70e3916aafde0779b4b37719b2832c4 /testsuite/tests/printer/Ppr048.hs | |
| parent | 7031704332db55de1fc3c46a8f450bad933997e0 (diff) | |
| download | haskell-8ec864d08c09a8aa7aabc4abf30186e5f3995ad4.tar.gz | |
Fix pretty printing of top level SCC pragmas
Reviewers: austin, alanz, bgamari
Reviewed By: alanz, bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2834
Diffstat (limited to 'testsuite/tests/printer/Ppr048.hs')
| -rw-r--r-- | testsuite/tests/printer/Ppr048.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/printer/Ppr048.hs b/testsuite/tests/printer/Ppr048.hs new file mode 100644 index 0000000000..83322f8ca4 --- /dev/null +++ b/testsuite/tests/printer/Ppr048.hs @@ -0,0 +1,9 @@ +module Ppr048 where + +{-# SCc foo #-} +foo :: Int -> Int +foo x = x + +{-# SCc foo2 "label" #-} +foo2 :: () +foo2 = () |