Update Experiments.hs

soulomoon · jhrcek · web-flow · commit 451e7ce364e8 · 2024-02-24T16:37:27.000+08:00
Co-authored-by: Jan Hrcek &lt;2716069+jhrcek@users.noreply.github.com&gt;
diff --git a/ghcide-bench/src/Experiments.hs b/ghcide-bench/src/Experiments.hs
@@ -104,7 +104,7 @@ experiments =
     [
       bench "semanticTokens" $ \docs -> do
         liftIO $ putStrLn "Starting semanticTokens"
-        r <- forM (zip [T.pack $ show i | i :: Int <- [0..]] docs) $ \(i, DocumentPositions{..}) -> do
+        r <- forM docs $ \DocumentPositions{..} -> do
             changeDoc doc [charEdit stringLiteralP]
             waitForProgressStart
             waitForProgressDone

Original file line number	Diff line number	Diff line change
`@@ -104,7 +104,7 @@ experiments =`
`104`	`104`	`[`
`105`	`105`	`bench "semanticTokens" $ \docs -> do`
`106`	`106`	`liftIO $ putStrLn "Starting semanticTokens"`
`107`		`- r <- forM (zip [T.pack $ show i \| i :: Int <- [0..]] docs) $ \(i, DocumentPositions{..}) -> do`
	`107`	`+ r <- forM docs $ \DocumentPositions{..} -> do`
`108`	`108`	`changeDoc doc [charEdit stringLiteralP]`
`109`	`109`	`waitForProgressStart`
`110`	`110`	`waitForProgressDone`