@@ -263,7 +263,7 @@ addDefHelp region annotations home name args body graph@(Opt.Graph mains nodes f
263 Result.ok $ addMain $ Names.run $
263 Result.ok $ addMain $ Names.run $
264 Names.registerKernel N.virtualDom Opt.Static
264 Names.registerKernel N.virtualDom Opt.Static
266− Can.TType hm nm [flags, message, _] | hm == ModuleName.platform && nm == N.program ->
266+ Can.TType hm nm [flags, _, message] | hm == ModuleName.platform && nm == N.program ->
267 case Effects.checkPayload flags of
267 case Effects.checkPayload flags of
268 Right () ->
268 Right () ->
269 Result.ok $ addMain $ Names.run $
269 Result.ok $ addMain $ Names.run $