diff options
| -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 "#-}" |