WIP: remove debug statments

Author: guibou

ghcide/session-loader/Development/IDE/Session.hs

@@ -124,9 +124,6 @@ import           GHC.Driver.Errors.Types
 import           GHC.Types.Error                     (errMsgDiagnostic,
                                                       singleMessage)
 import           GHC.Unit.State
-import Debug.Trace (traceShow)
-import Text.Pretty.Simple (pPrint)
-import Debug.Pretty.Simple (pTraceShow, pTraceShowId)
 
 #if MIN_VERSION_ghc(9,13,0)
 import           GHC.Driver.Make                     (checkHomeUnitsClosed)
@@ -577,13 +574,13 @@ loadSessionWithOptions recorder SessionLoadingOptions{..} rootDir que = do
                                          ])
                                        Nothing
 
-          void $ modifyVar' fileToFlags $ pTraceShow ("this_flags_map", this_flags_map) $ Map.insert hieYaml this_flags_map
+          void $ modifyVar' fileToFlags $ Map.insert hieYaml this_flags_map
           void $ modifyVar' filesMap $ flip HM.union (HM.fromList (map ((,hieYaml) . fst) $ concatMap toFlagsMap all_targets))
           -- The VFS doesn't change on cradle edits, re-use the old one.
           -- Invalidate all the existing GhcSession build nodes by restarting the Shake session
           keys2 <- invalidateShakeCache
           restartShakeSession VFSUnmodified "new component" [] $ do
-            keys1 <- extendKnownTargets $ pTraceShow ("all_targets", all_targets) all_targets
+            keys1 <- extendKnownTargets all_targets
             return [keys1, keys2]
 
           -- Typecheck all files in the project on startup
@@ -641,7 +638,7 @@ loadSessionWithOptions recorder SessionLoadingOptions{..} rootDir que = do
                let ncfp = toNormalizedFilePath' cfp
                let res = (map (\err' -> renderCradleError err' cradle ncfp) err, Nothing)
                void $ modifyVar' fileToFlags $
-                    Map.insertWith HM.union hieYaml (pTraceShow ("ncfp", ncfp) $ HM.singleton ncfp (res, dep_info))
+                    Map.insertWith HM.union hieYaml $ HM.singleton ncfp (res, dep_info)
                void $ modifyVar' filesMap $ HM.insert ncfp hieYaml
                return (res, maybe [] pure hieYaml ++ concatMap cradleErrorDependencies err)
 
@@ -679,11 +676,9 @@ loadSessionWithOptions recorder SessionLoadingOptions{..} rootDir que = do
 
           v <- Map.findWithDefault HM.empty hieYaml <$> readVar fileToFlags
           let cfp = toAbsolutePath file
-          pPrint ("sessionOpts", cfp)
           case HM.lookup (toNormalizedFilePath' cfp) v of
             Just (opts, old_di) -> do
               deps_ok <- checkDependencyInfo old_di
-              pPrint ("deps_ok", deps_ok, old_di)
               if not deps_ok
                 then do
                   -- If the dependencies are out of date then clear both caches and start
@@ -692,11 +687,9 @@ loadSessionWithOptions recorder SessionLoadingOptions{..} rootDir que = do
                   modifyVar_ filesMap (const (return HM.empty))
                   -- Keep the same name cache
                   modifyVar_ hscEnvs (return . Map.adjust (const []) hieYaml )
-                  pPrint ("consultCradle not deps_ok", cfp)
                   consultCradle hieYaml cfp
                 else return (opts, Map.keys old_di)
             Nothing -> do
-              pPrint ("consultCradle Nothing", cfp)
               consultCradle hieYaml cfp
 
     -- The main function which gets options for a file. We only want one of these running