@@ -83,7 +83,7 @@ jsModule modul =
8383 jsExports = setup ("elm" : names modul) ++
8484 ret (assign' ("elm." ++ modName) (brackets exs))
8585 where
86− exs = indent . commaSep . concatMap pair $ "_op" : exports modul
86+ exs = indent . commaSep . concatMap (pair . deprime) $ "_op" : exports modul
8787 pair x | isOp x = []
8888 | otherwise = ["\n" ++ x ++ " : " ++ x]
8989
@@ -340,7 +340,7 @@ binop op e1 e2 =
340340 basics = ops ++ map (\(op,e) -> ("Basics." ++ op, e))
341341 (ops ++ [ ("<|", e1 ++ parens e2)
342342 , ("|>", e2 ++ parens e1)
343− , ("." , jsFunc "x" . ret $ e1 ++ parens (e2 ++ parens "x"))
343+ , ("." , jsFunc "$" . ret $ e1 ++ parens (e2 ++ parens "$"))
344344 , ("==", "_N.eq(" ++ e1 ++ "," ++ e2 ++ ")")
345345 , ("/=", "!_N.eq(" ++ e1 ++ "," ++ e2 ++ ")")
346346 , ("<" , jsCompare e1 e2 "<0")