fix duplicate files

Author: soulomoon

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

@@ -652,7 +652,7 @@ loadSessionWithOptions recorder SessionLoadingOptions{..} rootDir que = do
       consultCradles hyCfpList@(h:hs) = do
             let lfpLogs = map (makeRelative rootDir . snd) hyCfpList
             logWith recorder Info $ LogCradlePaths lfpLogs
-            cradles <- mapM (\(hieYaml, _) -> do c <- loadCradle recorder hieYaml rootDir; return (c,h)) (h:|hs)
+            cradles <- mapM (\hf@(hieYaml, _) -> do c <- loadCradle recorder hieYaml rootDir; return (c,hf)) (h:|hs)
             when optTesting $ mRunLspT lspEnv $ mapM_ (\(_, cfp) -> sendNotification (SMethod_CustomMethod (Proxy @"ghcide/cradle/loaded")) (toJSON cfp)) hyCfpList
             let progMsg = "Setting up " <> T.intercalate "," (T.pack . takeBaseName . cradleRootDir <$> NE.toList (fmap fst cradles))
                          <> " (for " <> T.intercalate "," (T.pack <$> lfpLogs) <> ")"