on master help sign in
Save characters on imports.
602bffaevancz
compiler/src/Gen/CompileToJS.hs+1−1
@@ -99,7 +99,7 @@ jsImport (modul, how) =
99 if null vs then "\nfor (var k in _$) {eval('var '+k+'=_$[\"'+k+'\"]')}"
99 if null vs then "\nfor (var k in _$) {eval('var '+k+'=_$[\"'+k+'\"]')}"
100 else concatMap def vs
100 else concatMap def vs
101 where
101 where
102− imprt asgn v = asgn v ("elm." ++ modul ++ "." ++ v)
102+ imprt asgn v = asgn v ("_$." ++ v)
103 def (o:p) =
103 def (o:p) =
104 if isOp o then imprt globalAssign ("$op['" ++ o:p ++ "']")
104 if isOp o then imprt globalAssign ("$op['" ++ o:p ++ "']")
105 else imprt assign (deprime (o:p))
105 else imprt assign (deprime (o:p))