diff options
| author | aarne <aarne@chalmers.se> | 2011-08-29 12:03:45 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2011-08-29 12:03:45 +0000 |
| commit | 380011eb7dd5ee43055ace783f8b3f377496eb08 (patch) | |
| tree | 44540fceb03d6c6bc318848fea3ac61971f5693d | |
| parent | 769121788a01bc4a21cd69299a788876244e3d31 (diff) | |
skip spaces before closing parenthesis in PGF.Expr.pFactor
| -rw-r--r-- | src/runtime/haskell/PGF/Expr.hs | 4 |
1 files 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
|