unique workingDirectory for each in-memory hdv

Author: Saizan

haskell-debugger.cabal

@@ -149,6 +149,7 @@ library
 
                       haskell-debugger-view >= 0.2 && < 1.0,
                       ghc-stack-annotations >=0.1 && <0.2,
+                      uuid,
 
     if !os(windows)
         build-depends: unix >= 2.8.6 && < 2.9,

haskell-debugger/GHC/Debugger/Session/Builtin.hs

@@ -18,6 +18,7 @@ module GHC.Debugger.Session.Builtin
   )
   where
 
+import Data.UUID.V4 qualified as UUID
 import Data.FileEmbed
 import Data.Function
 import Data.Maybe
@@ -95,6 +96,7 @@ addInMemoryHsDebuggerViewUnit
   -> DynFlags -- ^ Dynflags resulting from first downsweep of user given targets
   -> m ()
 addInMemoryHsDebuggerViewUnit base_uids initialDynFlags = do
+  uuid <- liftIO $ UUID.nextRandom
   let imhdv_dflags = initialDynFlags
         { homeUnitId_ = hsDebuggerViewInMemoryUnitId
         , importPaths = []
@@ -108,6 +110,7 @@ addInMemoryHsDebuggerViewUnit base_uids initialDynFlags = do
           , unitId /= ghcInternalUnitId
           ]
         , thisPackageName = Just "haskell-debugger-view"
+        , workingDirectory = Just (show uuid)
         }
         & setGeneralFlag' Opt_HideAllPackages
   hsc_env <- getSession