Was storing the wrong type in debugMetadata
Was storing Model, but need to store Msg. I just mixed up the position.
Which makes sense because it is hard to remember. Unfortunately needed
to extract the type information right here though!
commit10fa496d209eb0571aa05a205f2cbad742d3590c
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateFri 1 Jun 2018, 12:16 (8 years ago)
parenta792061
compiler/src/Optimize/Module.hs+1−1
@@ -263,7 +263,7 @@ addDefHelp region annotations home name args body graph@(Opt.Graph mains nodes f
263263 Result.ok $ addMain $ Names.run $
264264 Names.registerKernel N.virtualDom Opt.Static
265265
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 ->
267267 case Effects.checkPayload flags of
268268 Right () ->
269269 Result.ok $ addMain $ Names.run $