Fix performance issue in 'allDependencies' (#668)

Author: thomashoneyman

app/src/App/API.purs

@@ -625,10 +625,7 @@ publish source payload = do
                 let sourceModules = Map.keys $ Map.filter (isJust <<< String.stripPrefix (String.Pattern packageDirectory) <<< _.path) graph
 
                 Log.debug "Found all modules used in package source. Finding all modules used by those modules..."
-                -- We find all dependencies of each module used in the source,
-                -- which results in a set containing every module name reachable
-                -- by the source code.
-                let allReachableModules = Set.fromFoldable $ Array.fold $ Array.mapMaybe (flip PursGraph.allDependencies graph) $ Set.toUnfoldable sourceModules
+                let allReachableModules = PursGraph.allDependenciesOf sourceModules graph
 
                 -- Then we can associate each reachable module with its package
                 -- name to get the full set of used package names.

app/src/App/Legacy/Manifest.purs

@@ -76,7 +76,7 @@ fetchLegacyManifest
 fetchLegacyManifest name address ref = Run.Except.runExceptAt _legacyManifestError do
   legacyPackageSets <- fetchLegacyPackageSets >>= case _ of
     Left error -> do
-      Log.error $ "Failed error when to fetch legacy package sets: " <> Octokit.printGitHubError error
+      Log.error $ "Failed to fetch legacy package sets: " <> Octokit.printGitHubError error
       Except.throw "Could not retrieve legacy package sets; aborting to avoid producing incorrect legacy manifest depedency bounds."
     Right union -> pure union