Add more logging to causal diff queue workers.

Author: ChrisPenner

share-api/src/Share/BackgroundJobs/Diffs/CausalDiffs.hs

@@ -57,9 +57,15 @@ processDiff authZReceipt unisonRuntime = Trace.withSpan "background:causal-diffs
     DQ.claimCausalDiff >>= \case
       Nothing -> pure Nothing
       Just causalDiffInfo -> withTags (causalDiffTags causalDiffInfo) do
+        Logging.textLog ("Computing causal diff: " <> tShow causalDiffInfo)
+          & Logging.withSeverity Logging.Info
+          & Logging.logMsg
         PG.transactionUnsafeIO $ UnliftIO.tryPutMVar pendingCausalDiffVar causalDiffInfo
         startTime <- PG.transactionUnsafeIO (Clock.getTime Clock.Monotonic)
         result <- PG.catchTransaction (maybeComputeAndStoreCausalDiff authZReceipt unisonRuntime causalDiffInfo)
+        Logging.textLog ("Finished causal diff: " <> tShow causalDiffInfo)
+          & Logging.withSeverity Logging.Info
+          & Logging.logMsg
         DQ.deleteClaimedCausalDiff causalDiffInfo
         pure (Just (causalDiffInfo, startTime, result))
   case result of

share-api/src/Share/BackgroundJobs/Diffs/Types.hs

@@ -9,7 +9,7 @@ data CausalDiffInfo = CausalDiffInfo
     toCausalId :: CausalId,
     fromCodebaseOwner :: UserId,
     toCodebaseOwner :: UserId
-  }
+  } deriving (Eq, Show)
 
 instance PG.DecodeRow CausalDiffInfo where
   decodeRow =