From fa8d545d9300693f9f144de485746cfb9a87424b Mon Sep 17 00:00:00 2001 From: Reiner Pope Date: Sat, 23 Jul 2011 18:34:23 +1000 Subject: [PATCH 2/2] Accept redundant parens in TH_pragma --- tests/th/TH_pragma.stderr | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/th/TH_pragma.stderr b/tests/th/TH_pragma.stderr index 15feece..0f05b7b 100644 --- a/tests/th/TH_pragma.stderr +++ b/tests/th/TH_pragma.stderr @@ -6,7 +6,7 @@ TH_pragma.hs:1:1: Splicing declarations TH_pragma.hs:(6,4)-(8,26) foo :: Int -> Int {-# NOINLINE foo #-} - foo x = (x + 1) + foo x = ((x) + (1)) TH_pragma.hs:1:1: Splicing declarations [d| bar :: Num a => a -> a {-# SPECIALIZE INLINE[~1] bar :: Float -> Float #-} @@ -15,4 +15,4 @@ TH_pragma.hs:1:1: Splicing declarations TH_pragma.hs:(10,4)-(12,31) bar :: forall a. Num a => a -> a {-# SPECIALIZE INLINE[~1] bar :: Float -> Float #-} - bar x = (x * 10) + bar x = ((x) * (10)) -- 1.7.1