@@ -479,6 +479,7 @@ generateBasicsCall mode home name args =
479 let arg = generateJsExpr mode elmArg in
479 let arg = generateJsExpr mode elmArg in
480 case name of
480 case name of
481 "not" -> JS.Prefix JS.PrefixLNot arg
481 "not" -> JS.Prefix JS.PrefixLNot arg
482+ "negate" -> JS.Prefix JS.PrefixMinus arg
482 "toFloat" -> arg
483 "toFloat" -> arg
483 "truncate" -> JS.Infix JS.OpBOr arg (JS.Int 0)
484 "truncate" -> JS.Infix JS.OpBOr arg (JS.Int 0)
484 _ -> generateGlobalCall home name [arg]
485 _ -> generateGlobalCall home name [arg]