Fix pretty-printing of INLINE pragmas
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Mon, 9 Nov 2009 11:32:00 +0000 (11:32 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Mon, 9 Nov 2009 11:32:00 +0000 (11:32 +0000)
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 "#-}"