From: Ian Lynagh <igloo@earth.li>
Date: Wed, 21 Jan 2009 14:17:06 +0000 (+0000)
Subject: When converting TH syntax to GHC syntax, need to put sections in parentheses
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=485ab9c9f772c98b42c203b6b0a37af5a06c2b6c

When converting TH syntax to GHC syntax, need to put sections in parentheses
Fixes trac #2956
---

diff --git a/compiler/hsSyn/Convert.lhs b/compiler/hsSyn/Convert.lhs
index 06f6115..09ffafd 100644
--- a/compiler/hsSyn/Convert.lhs
+++ b/compiler/hsSyn/Convert.lhs
@@ -388,9 +388,11 @@ cvtl e = wrapL (cvt e)
 					  ; e' <- returnL $ OpApp x' s' undefined y'
 					  ; return $ HsPar e' }
     cvt (InfixE Nothing  s (Just y)) = do { s' <- cvtl s; y' <- cvtl y
-					  ; return $ SectionR s' y' }
+					  ; sec <- returnL $ SectionR s' y'
+					  ; return $ HsPar sec }
     cvt (InfixE (Just x) s Nothing ) = do { x' <- cvtl x; s' <- cvtl s
-					  ; return $ SectionL x' s' }
+					  ; sec <- returnL $ SectionL x' s'
+					  ; return $ HsPar sec }
     cvt (InfixE Nothing  s Nothing ) = cvt s	-- Can I indicate this is an infix thing?
 
     cvt (SigE e t)	 = do { e' <- cvtl e; t' <- cvtType t