only list direct dependencies in available foreign modules
commit5589da49dde4815fd04fdfe808ea0e7b65abd6e4
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateThu 11 Jul 2019, 19:24 (7 years ago)
parentee35aaf
builder/src/Elm/Details.hs+1−1
@@ -309,7 +309,7 @@ verifyDependencies env@(Env key scope root cache _ _ _) time outline solution di
309309 let
310310 objs = Map.foldr addObjects Opt.empty artifacts
311311 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
313313 details = Details time outline Map.empty foreigns (ArtifactsFresh ifaces objs)
314314 in
315315 do BW.writeBinary scope (Stuff.objects root) objs