Pass null as flag decoder when flag is Bytes

Author: robinheghan

compiler/src/AST/Optimized.hs

@@ -127,6 +127,7 @@ data Main
   | StaticVDom
   | Dynamic
       { _message :: Can.Type,
+        _isBytes :: Bool,
         _decoder :: Expr
       }
 
@@ -349,15 +350,15 @@ instance Binary Main where
     case main of
       StaticString -> putWord8 0
       StaticVDom -> putWord8 1
-      Dynamic a b -> putWord8 2 >> put a >> put b
+      Dynamic a b c -> putWord8 2 >> put a >> put b >> put c
 
   get =
     do
       word <- getWord8
       case word of
         0 -> return StaticString
         1 -> return StaticVDom
-        2 -> liftM2 Dynamic get get
+        2 -> liftM3 Dynamic get get get
         _ -> fail "problem getting Opt.Main binary"
 
 instance Binary Node where

compiler/src/Generate/JavaScript/Expression.hs

@@ -891,9 +891,12 @@ generateMain mode argLookup home main =
     Opt.StaticVDom ->
       JS.Ref (JsName.fromKernel Name.virtualDom "init")
         # JS.Ref (JsName.fromGlobal home "main")
-    Opt.Dynamic _ decoder ->
+    Opt.Dynamic _ False decoder ->
       JS.Ref (JsName.fromGlobal home "main")
         # generateJsExpr mode argLookup home decoder
+    Opt.Dynamic _ True _ ->
+      JS.Ref (JsName.fromGlobal home "main")
+        # JS.Null
 
 (#) :: JS.Expr -> JS.Expr -> JS.Expr
 (#) func arg =

compiler/src/Optimize/Module.hs

@@ -200,7 +200,7 @@ addDefHelp platform region annotations home name args body graph@(Opt.LocalGraph
                   Result.ok $
                     addMain $
                       Names.run $
-                        Opt.Dynamic message <$> Port.toFlagsDecoder flags
+                        Opt.Dynamic message (Port.isBytes flags) <$> Port.toFlagsDecoder flags
                 Left (subType, invalidPayload) ->
                   Result.throw (E.BadFlags region subType invalidPayload)
             _ ->