ble :: OperatorTable (AST' Text)
table =
    [ [ postfix array_index ]
    , [ prefix "+"  id ]
    , [ binary "^"  Ex.AssocRight
      , binary "**" Ex.AssocRight]
    , [ binary "*"  Ex.AssocLeft
      , binary "/"  Ex.AssocLeft]
    , [ binary "+"  Ex.AssocLeft
      , binary "-"  Ex.AssocLeft
      , prefix "-"  (app1 "negate")]
    -- TODO: add "/="
    -- TODO: do you *really* mean AssocLeft? Shouldn't they be non-assoc?
    , [ postfix ann_expr ]
    , [ binary "<|>" Ex.AssocRight]
    , [ binary "<"   Ex.AssocLeft
      , binary ">"   Ex.AssocLeft
      , binary "<="  Ex.AssocLeft
      , binary ">="  Ex.AssocLeft
      , binary "=="  Ex.AssocLeft]
    , [ binary "&&"  Ex.AssocLeft]]


table :: OperatorTable (AST' Text)
table =
    [ [ postfix array_index ]
    , [ prefix "+"  id ]
    , [ binary "^"  Ex.AssocRight
      , binary "**" Ex.AssocRight]
    , [ binary "*"  Ex.AssocLeft
      , binary "/"  Ex.AssocLeft]
    , [ binary "+"  Ex.AssocLeft
      , binary "-"  Ex.AssocLeft
      , prefix "-"  (app1 "negate")]
    -- TODO: add "/="
    -- TODO: do you *really* mean AssocLeft? Shouldn't they be non-assoc?
    , [ postfix ann_expr ]
    , [ binary "<|>" Ex.AssocRight]
    , [ binary "<"   Ex.AssocLeft
      , binary ">"   Ex.AssocLeft
      , binary "<="  Ex.AssocLeft
      , binary ">="  Ex.AssocLeft
      , binary "=="  Ex.AssocLeft]
    , [ binary "&&"  Ex.AssocLeft]]
table =
    [ [ postfix array_index ]
    , [ prefix "+"  id ]
    , [ binary "^"  Ex.AssocRight
      , binary "**" Ex.AssocRight]
    , [ binary "*"  Ex.AssocLeft
      , binary "/"  Ex.AssocLeft]
    , [ binary "+"  Ex.AssocLeft
      , binary "-"  Ex.AssocLeft
      , prefix "-"  (app1 "negate")]
    -- TODO: add "/="
    -- TODO: do you *really* mean AssocLeft? Shouldn't they be non-assoc?
    , [ postfix ann_expr ]
    , [ binary "<|>" Ex.AssocRight]
    , [ binary "<"   Ex.AssocLeft
      , binary ">"   Ex.AssocLeft
      , binary "<="  Ex.AssocLeft
      , binary ">="  Ex.AssocLeft
      , binary "=="  Ex.AssocLeft]
    , [ binary "&&"  Ex.AssocLeft]]