@@ -353,8 +353,8 @@ parseValueAtom = P.choice
353 , parseIfThenElse
353 , parseIfThenElse
354 , parseDo
354 , parseDo
355 , parseLet
355 , parseLet
356− , P.try parseOperatorSection
357− , Parens <$> parens parseValue ]
356+ , P.try $ Parens <$> parens parseValue
357+ , parseOperatorSection ]
359parseOperatorSection :: TokenParser Expr
359parseOperatorSection :: TokenParser Expr
360parseOperatorSection = parens $ left <|> right
360parseOperatorSection = parens $ left <|> right