From 485ab9c9f772c98b42c203b6b0a37af5a06c2b6c Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 21 Jan 2009 14:17:06 +0000 Subject: [PATCH] When converting TH syntax to GHC syntax, need to put sections in parentheses Fixes trac #2956 --- compiler/hsSyn/Convert.lhs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 -- 1.7.10.4