Fix parse precedence to allow negate
commit9a5f2bfbce53296d6d845e9a0831dcaad57b194a
authorGary Burgess <gary.burgess@gmail.com>
dateSat 7 Feb 2015, 23:16 (12 years ago)
parent2099d51
src/Language/PureScript/Parser/Declarations.hs+2−2
@@ -353,8 +353,8 @@ parseValueAtom = P.choice
353353 , parseIfThenElse
354354 , parseDo
355355 , parseLet
356− , P.try parseOperatorSection
357− , Parens <$> parens parseValue ]
356+ , P.try $ Parens <$> parens parseValue
357+ , parseOperatorSection ]
358358
359359parseOperatorSection :: TokenParser Expr
360360parseOperatorSection = parens $ left <|> right