on master help sign in
only list direct dependencies in available foreign modules
5589da4Evan Czaplicki
builder/src/Elm/Details.hs+1−1
@@ -309,7 +309,7 @@ verifyDependencies env@(Env key scope root cache _ _ _) time outline solution di
309 let
309 let
310 objs = Map.foldr addObjects Opt.empty artifacts
310 objs = Map.foldr addObjects Opt.empty artifacts
311 ifaces = Map.foldrWithKey (addInterfaces directDeps) Map.empty artifacts
311 ifaces = Map.foldrWithKey (addInterfaces directDeps) Map.empty artifacts
312− foreigns = Map.map (OneOrMore.destruct Foreign) $ Map.foldrWithKey gatherForeigns Map.empty artifacts
312+ foreigns = Map.map (OneOrMore.destruct Foreign) $ Map.foldrWithKey gatherForeigns Map.empty $ Map.intersection artifacts directDeps
313 details = Details time outline Map.empty foreigns (ArtifactsFresh ifaces objs)
313 details = Details time outline Map.empty foreigns (ArtifactsFresh ifaces objs)
314 in
314 in
315 do BW.writeBinary scope (Stuff.objects root) objs
315 do BW.writeBinary scope (Stuff.objects root) objs