@@ -72,6 +72,9 @@ crawl graph state@(State js seen natives effects) name@(Var.Global home _) =
7272 if Set.member name seen then
7373 state
7474
75+ else if home == virtualDomDebug then
76+ state
77+
7578 else
7679 case Map.lookup name graph of
7780 Just decl ->
@@ -84,6 +87,11 @@ crawl graph state@(State js seen natives effects) name@(Var.Global home _) =
8487 error (crawlError name)
8588
8689
90+virtualDomDebug :: ModuleName.Canonical
91+virtualDomDebug =
92+ ModuleName.inVirtualDom "VirtualDom.Debug"
93+
94+
8795crawlDecl :: Graph -> Var.Global -> Opt.Decl -> State -> State
8896crawlDecl graph name@(Var.Global home _) (Opt.Decl deps mfx body) state =
8997 let