write stats about time taken to writeNS

Signed-off-by: Maximilian Huber <[email protected]>
maxhbr · Apr 23, 2024 · e7a80e5 · e7a80e5
1 parent 8dbe831
commit e7a80e5
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 9 deletions.
diff --git a/app/Main.hs b/app/Main.hs
@@ -51,14 +51,15 @@ writeSvgByNS outDir selectedNS = do
               _ -> False
           )
           allLicenseNames
-  if True
-    then do
-      numCaps <- lift $ getNumCapabilities
-      graph <- MTL.get 
-      lift $ withTaskGroup (max 1 (numCaps - 3)) $ \group -> do 
-          _ <- mapConcurrently group (runLicenseGraphM' graph . writeFilesByName outDir) (V.toList filteredLicenses)
-          return ()
-    else V.mapM_ (writeFilesByName outDir) filteredLicenses
+  timedLGM ("writing " ++ show (V.length filteredLicenses) ++ " licenses of NS=" ++ T.unpack selectedNS) $ do
+    if True
+      then do
+        numCaps <- lift $ getNumCapabilities
+        graph <- MTL.get 
+        lift $ withTaskGroup (max 1 (numCaps - 3)) $ \group -> do 
+            _ <- mapConcurrently group (runLicenseGraphM' graph . writeFilesByName outDir) (V.toList filteredLicenses)
+            return ()
+      else V.mapM_ (writeFilesByName outDir) filteredLicenses
 
 curation :: Vector CurationItem
 curation =

diff --git a/data/fosslight/dump.sh b/data/fosslight/dump.sh
@@ -29,7 +29,7 @@ startContainer() {
 dumpTable() {
     tablename="$1"
 
-    dumpCMD="exec mysqldump "
+    dumpCMD="exec mariadb-dump "
     dumpARGS="-uroot -pmy-secret-pw"
     dumpARGS="$dumpARGS --skip-create-options"
     dumpARGS="$dumpARGS --compatible=ansi"