Fix pretty-printing of INLINE pragmas
[ghc.git] / libraries / template-haskell / Language / Haskell / TH / Ppr.hs
index 12a2149..8fa90b5 100644 (file)
@@ -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 "#-}"