on master help sign in
Change default associativity to left
commit24642c85e67144f76f98b56790b3de543f6ad566 authorEvan Czaplicki <info@elm-lang.org> dateWed 4 Sep 2013, 17:16 (13 years ago) parenta633a5d
1 file changed+1−1
compiler/Parse/Binop.hs+1−1
compiler/Parse/Binop.hs+1−1
@@ -33,7 +33,7 @@ opLevel table op = Map.findWithDefault 9 op dict
3333 where dict = Map.fromList (map (\(lvl,_,op) -> (op,lvl)) table)
3434
3535opAssoc :: OpTable -> String -> Assoc
36−opAssoc table op = Map.findWithDefault R op dict
36+opAssoc table op = Map.findWithDefault L op dict
3737 where dict = Map.fromList (map (\(_,assoc,op) -> (op,assoc)) table)
3838
3939hasLevel :: OpTable -> Int -> (String, LExpr t v) -> Bool