Extend the timeout for matrix jobs to allow for cascading (#764)

Author: f-f

app/src/App/Server/JobExecutor.purs

@@ -119,9 +119,11 @@ findNextAvailableJob = runMaybeT
 
 jobTimeout :: Job -> Duration.Minutes
 jobTimeout = case _ of
+  MatrixJob _ -> Duration.Minutes 60.0
   PackageSetJob _ -> Duration.Minutes 90.0
   PublishJob _ -> Duration.Minutes 10.0
-  _ -> Duration.Minutes 5.0
+  TransferJob _ -> Duration.Minutes 10.0
+  UnpublishJob _ -> Duration.Minutes 10.0
 
 executeJob :: DateTime -> Job -> Run ServerEffects Unit
 executeJob _ = case _ of
@@ -195,7 +197,7 @@ upgradeRegistryToNewCompiler newCompilerVersion = do
     -- as they complete new jobs for their dependants will be queued up.
     when (Map.isEmpty manifest.dependencies) do
       Log.info $ Array.fold
-        [ "Enqueuing matrix job for _new_ compiler "
+        [ "Enqueuing matrix job for new compiler "
         , Version.print newCompilerVersion
         , ", package "
         , PackageName.print manifest.name

app/src/App/Server/MatrixBuilder.purs

@@ -188,8 +188,7 @@ solveForAllCompilers { compilerIndex, name, version, compiler, dependencies } =
     Log.debug $ "Trying compiler " <> Version.print target <> " for package " <> PackageName.print name
     case Solver.solveWithCompiler (Range.exact target) compilerIndex dependencies of
       Left _solverErrors -> do
-        Log.info $ "Failed to solve with compiler " <> Version.print target
-        -- Log.debug $ Solver.printSolverError solverErrors
+        Log.info $ "Failed to solve with compiler " <> Version.print target <> ": " <> PackageName.print name <> "@" <> Version.print version
         pure Nothing
       Right (Tuple solvedCompiler resolutions) -> case solvedCompiler == target of
         true -> do
@@ -234,12 +233,11 @@ solveDependantsForCompiler { compilerIndex, name, version, compiler } = do
         Log.debug $ "Trying compiler " <> Version.print compiler <> " for package " <> PackageName.print manifest.name
         case Solver.solveWithCompiler (Range.exact compiler) compilerIndex manifest.dependencies of
           Left _solverErrors -> do
-            Log.info $ "Failed to solve with compiler " <> Version.print compiler
-            -- Log.debug $ Solver.printSolverError solverErrors
+            Log.info $ "Failed to solve with compiler " <> Version.print compiler <> ": " <> PackageName.print manifest.name <> "@" <> Version.print manifest.version
             pure Nothing
           Right (Tuple solvedCompiler resolutions) -> case compiler == solvedCompiler of
             true -> do
-              Log.debug $ "Solved with compiler " <> Version.print solvedCompiler
+              Log.debug $ "Solved " <> PackageName.print manifest.name <> "@" <> Version.print manifest.version <> " with compiler " <> Version.print solvedCompiler
               pure $ Just { compiler, resolutions, name: manifest.name, version: manifest.version }
             false -> do
               Log.debug $ Array.fold