@@ -332,16 +332,18 @@ binop op e1 e2 =
332 [ ("::", jsCons e1 e2)
332 [ ("::", jsCons e1 e2)
333 , ("List.++", "_L.append" ++ parens (e1 ++ "," ++ e2)) ]
333 , ("List.++", "_L.append" ++ parens (e1 ++ "," ++ e2)) ]
335+ ops = pow : map (\op -> (op, parens (e1 ++ op ++ e2))) ["+","-","*","/","&&","||"]
336+ where pow = ("^" , "Math.pow(" ++ e1 ++ "," ++ e2 ++ ")")
335− basics = map (\(op,e) -> ("Basics." ++ op, e)) $
338+ basics = ops ++ map (\(op,e) -> ("Basics." ++ op, e))
336− [ ("<|", e1 ++ parens e2)
339+ (ops ++ [ ("<|", e1 ++ parens e2)
337− , ("|>", e2 ++ parens e1)
340+ , ("|>", e2 ++ parens e1)
338− , ("." , jsFunc "x" . ret $ e1 ++ parens (e2 ++ parens "x"))
341+ , ("." , jsFunc "x" . ret $ e1 ++ parens (e2 ++ parens "x"))
339− , ("^" , "Math.pow(" ++ e1 ++ "," ++ e2 ++ ")")
340− , ("==", "_N.eq(" ++ e1 ++ "," ++ e2 ++ ")")
342+ , ("==", "_N.eq(" ++ e1 ++ "," ++ e2 ++ ")")
341− , ("/=", "!_N.eq(" ++ e1 ++ "," ++ e2 ++ ")")
343+ , ("/=", "!_N.eq(" ++ e1 ++ "," ++ e2 ++ ")")
342− , ("<" , jsCompare e1 e2 "==='LT'")
344+ , ("<" , jsCompare e1 e2 "==='LT'")
343− , (">" , jsCompare e1 e2 "==='GT'")
345+ , (">" , jsCompare e1 e2 "==='GT'")
344− , ("<=", jsCompare e1 e2 "!=='GT'")
346+ , ("<=", jsCompare e1 e2 "!=='GT'")
345− , (">=", jsCompare e1 e2 "!=='LT'")
347+ , (">=", jsCompare e1 e2 "!=='LT'")
346− , ("div", parens (e1 ++ "/" ++ e2 ++ "|0"))
348+ , ("div", parens (e1 ++ "/" ++ e2 ++ "|0"))
347− ] ++ map (\op -> (op, parens (e1 ++ op ++ e2))) ["+","-","*","/","&&","||"]
349+ ])