Log locks to try narrow down cache issues

Author: supermario

builder/src/Stuff.hs

@@ -1,4 +1,6 @@
 {-# OPTIONS_GHC -Wall #-}
+{-# LANGUAGE BangPatterns #-}
+
 module Stuff
   ( details
   , interfaces
@@ -131,6 +133,12 @@ withRootLock root work =
   do  let dir = stuff root
       Dir.createDirectoryIfMissing True dir
       Lock.withFileLock (dir </> "lock") Lock.Exclusive (\_ -> work)
+        & Lamdera.alternativeImplementation (do
+            Lamdera.debug "🔒 withRootLock"
+            !res <- Lock.withFileLock (dir </> "lock") Lock.Exclusive (\_ -> work)
+            Lamdera.debug "🔓 unlocking withRootLock"
+            pure res
+          )
 
 
 withRegistryLock :: PackageCache -> IO a -> IO a

ext-common/Ext/Common.hs

@@ -359,7 +359,7 @@ killTrackedThreads = do
           debug $ "No tracked GHCI threads to kill."
           pure []
         threads -> do
-          debug $ "Killing tracked GHCI threads: " ++ show threads
+          debug $ "🔪  Killing tracked GHCI threads: " ++ show threads
           mapM killThread threads
           pure []
     )