git.iko.soy/elk
on master help sign in
Filter out VirtualDom.Debug for now
9e24b4fEvan Czaplicki
src/Generate/JavaScript.hs+8
compare with master
unifiedsplit
@@ -72,6 +72,9 @@ crawl graph state@(State js seen natives effects) name@(Var.Global home _) =
72 if Set.member name seen then
72 if Set.member name seen then
73 state
73 state
74
74
75+ else if home == virtualDomDebug then
76+ state
77+
75 else
78 else
76 case Map.lookup name graph of
79 case Map.lookup name graph of
77 Just decl ->
80 Just decl ->
@@ -84,6 +87,11 @@ crawl graph state@(State js seen natives effects) name@(Var.Global home _) =
84 error (crawlError name)
87 error (crawlError name)
85
88
86
89
90+virtualDomDebug :: ModuleName.Canonical
91+virtualDomDebug =
92+ ModuleName.inVirtualDom "VirtualDom.Debug"
93+
94+
87crawlDecl :: Graph -> Var.Global -> Opt.Decl -> State -> State
95crawlDecl :: Graph -> Var.Global -> Opt.Decl -> State -> State
88crawlDecl graph name@(Var.Global home _) (Opt.Decl deps mfx body) state =
96crawlDecl graph name@(Var.Global home _) (Opt.Decl deps mfx body) state =
89 let
97 let