@@ -209,7 +209,7 @@ addGlobalHelp mode graph global state =
209209 )
210210
211211 Opt.Box ->
212− addStmt state (
212+ addStmt (addGlobal mode graph state identity) (
213213 generateBox mode global
214214 )
215215
@@ -400,6 +400,12 @@ generateBox mode global@(Opt.Global home name) =
400400 JS.Var [ (JsName.fromGlobal home name, Just definition) ]
401401
402402
403+{-# NOINLINE identity #-}
404+identity :: Opt.Global
405+identity =
406+ Opt.Global ModuleName.basics Name.identity
407+
408+
403409
404410-- GENERATE PORTS
405411