@@ -308,7 +308,9 @@ verifyDependencies env@(Env key root _ _ _ _) time outline solution directDeps =
308 foreigns = Map.map (OneOrMore.destruct Foreign) $ Map.foldrWithKey gatherForeigns Map.empty artifacts
308 foreigns = Map.map (OneOrMore.destruct Foreign) $ Map.foldrWithKey gatherForeigns Map.empty artifacts
309 details = Details time outline Map.empty foreigns (ArtifactsFresh ifaces objs)
309 details = Details time outline Map.empty foreigns (ArtifactsFresh ifaces objs)
311+ do -- PERF fork all three of these writes, but need to make sure
312+ -- they complete before main thread with some MVar check at end
311− do File.writeBinary (Stuff.objects root) objs
313+ File.writeBinary (Stuff.objects root) objs
312 File.writeBinary (Stuff.interfaces root) ifaces
314 File.writeBinary (Stuff.interfaces root) ifaces
313 File.writeBinary (Stuff.details root) details
315 File.writeBinary (Stuff.details root) details
314 return (Right details)
316 return (Right details)