diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2009-11-09 11:32:00 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2009-11-09 11:32:00 +0000 |
| commit | f8fe4fd93d19caf0b19466559f01728e7dd5305f (patch) | |
| tree | 4d7378c43bc1ec04085016812f4f8bce05b3ed60 | |
| parent | 6b3eea4d9b610fb7e380a4c6d4e559ec3ae0a471 (diff) | |
| download | haskell-f8fe4fd93d19caf0b19466559f01728e7dd5305f.tar.gz | |
Fix pretty-printing of INLINE pragmas
| -rw-r--r-- | libraries/template-haskell/Language/Haskell/TH/Ppr.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/template-haskell/Language/Haskell/TH/Ppr.hs b/libraries/template-haskell/Language/Haskell/TH/Ppr.hs index 12a21491da..8fa90b52a5 100644 --- a/libraries/template-haskell/Language/Haskell/TH/Ppr.hs +++ b/libraries/template-haskell/Language/Haskell/TH/Ppr.hs @@ -303,8 +303,8 @@ instance Ppr Foreign where instance Ppr Pragma where ppr (InlineP n (InlineSpec inline conlike activation)) = text "{-#" - <+> if inline then text "INLINE" else text "NOINLINE" - <+> if conlike then text "CONLIKE" else empty + <+> (if inline then text "INLINE" else text "NOINLINE") + <+> (if conlike then text "CONLIKE" else empty) <+> ppr_activation activation <+> ppr n <+> text "#-}" |