X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FhsSyn%2FConvert.lhs;h=09ffafd83a7b66570f03e6653c375a0d60b782fe;hb=485ab9c9f772c98b42c203b6b0a37af5a06c2b6c;hp=06f611553c67828537ec522f5a4335c3c7628322;hpb=7a4d66554399710b474a4497cbbe4bc5846f4f04;p=ghc-hetmet.git

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