From 7bf4683c02a42aee76ab0d2cf97303e3d9adca29 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 29 Aug 2011 12:03:45 +0000 Subject: [PATCH] skip spaces before closing parenthesis in PGF.Expr.pFactor --- src/runtime/haskell/PGF/Expr.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/runtime/haskell/PGF/Expr.hs b/src/runtime/haskell/PGF/Expr.hs index db6e7cfd3..ffc135d96 100644 --- a/src/runtime/haskell/PGF/Expr.hs +++ b/src/runtime/haskell/PGF/Expr.hs @@ -201,8 +201,8 @@ pArg = fmap EImplArg (RP.between (RP.char '{') (RP.char '}') pExpr) pFactor = fmap EFun pCId RP.<++ fmap ELit pLit RP.<++ fmap EMeta pMeta - RP.<++ RP.between (RP.char '(') (RP.char ')') pExpr - RP.<++ RP.between (RP.char '<') (RP.char '>') pTyped + RP.<++ RP.between (RP.char '(') (RP.skipSpaces >> RP.char ')') pExpr + RP.<++ RP.between (RP.char '<') (RP.skipSpaces >> RP.char '>') pTyped pTyped = do RP.skipSpaces e <- pExpr