@@ -83,7 +83,7 @@ jsModule modul =
83 jsExports = setup ("elm" : names modul) ++
83 jsExports = setup ("elm" : names modul) ++
84 ret (assign' ("elm." ++ modName) (brackets exs))
84 ret (assign' ("elm." ++ modName) (brackets exs))
86− exs = indent . commaSep . concatMap pair $ "_op" : exports modul
86+ exs = indent . commaSep . concatMap (pair . deprime) $ "_op" : exports modul
87 pair x | isOp x = []
87 pair x | isOp x = []
88 | otherwise = ["\n" ++ x ++ " : " ++ x]
88 | otherwise = ["\n" ++ x ++ " : " ++ x]
@@ -340,7 +340,7 @@ binop op e1 e2 =
340 basics = ops ++ map (\(op,e) -> ("Basics." ++ op, e))
340 basics = ops ++ map (\(op,e) -> ("Basics." ++ op, e))
341 (ops ++ [ ("<|", e1 ++ parens e2)
341 (ops ++ [ ("<|", e1 ++ parens e2)
342 , ("|>", e2 ++ parens e1)
342 , ("|>", e2 ++ parens e1)
343− , ("." , jsFunc "x" . ret $ e1 ++ parens (e2 ++ parens "x"))
343+ , ("." , jsFunc "$" . ret $ e1 ++ parens (e2 ++ parens "$"))
344 , ("==", "_N.eq(" ++ e1 ++ "," ++ e2 ++ ")")
344 , ("==", "_N.eq(" ++ e1 ++ "," ++ e2 ++ ")")
345 , ("/=", "!_N.eq(" ++ e1 ++ "," ++ e2 ++ ")")
345 , ("/=", "!_N.eq(" ++ e1 ++ "," ++ e2 ++ ")")
346 , ("<" , jsCompare e1 e2 "<0")
346 , ("<" , jsCompare e1 e2 "<0")