From e0cd4d63959e4a7aefbd349a265076026fd03437 Mon Sep 17 00:00:00 2001 From: Francis Russell Date: Fri, 21 Sep 2012 01:04:05 +0100 Subject: [PATCH] Make power operator right associative. --- OFC/Parser.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/OFC/Parser.hs b/OFC/Parser.hs index 6469cce..29f893b 100644 --- a/OFC/Parser.hs +++ b/OFC/Parser.hs @@ -39,7 +39,7 @@ TokenParser { } = makeTokenParser oflDef oflOperatorTable :: OperatorTable String st Identity Expression -oflOperatorTable = [[Infix (do _ <- lSymbol "^"; return Power) AssocLeft], +oflOperatorTable = [[Infix (do _ <- lSymbol "^"; return Power) AssocRight], [Prefix (do _ <- lSymbol "-"; return Negate)], [Infix (do _ <- lSymbol "*"; return Multiply) AssocLeft ,Infix (do _ <- lSymbol "/"; return Divide) AssocLeft], -- 2.47.3