Add benchmarks for hole fits

Author: pepeiborra

ghcide/bench/config.yaml

@@ -48,6 +48,7 @@ experiments:
     - "code actions after edit"
     - "code actions after cradle edit"
     - "documentSymbols after edit"
+    - "hole fit suggestions"
 
 # An ordered list of versions to analyze
 versions:

ghcide/bench/lib/Experiments.hs

@@ -170,8 +170,22 @@ experiments =
                 List [ FileEvent (filePathToUri "hie.yaml") FcChanged ]
             flip allWithIdentifierPos docs $ \DocumentPositions{..} -> isJust <$> getHover doc (fromJust identifierP)
         )
+      ---------------------------------------------------------------------------------------
+      benchWithSetup
+        "hole fit suggestions"
+        ( mapM_ $ \DocumentPositions{..} -> do
+            let edit :: TextDocumentContentChangeEvent =TextDocumentContentChangeEvent
+                  {_range = Just Range {_start = bottom, _end = bottom}, _rangeLength = Nothing, _text = t}
+                t = "\nf :: [Int] -> [Int]\nf = _"
+            changeDoc doc [edit]
+        )
+        (\docs -> do
+            forM_ docs $ \DocumentPositions{..} ->
+              changeDoc doc [charEdit bottom]
+            waitForKickDone
+            return True
+        )
     ]
-
 ---------------------------------------------------------------------------------------------
 
 examplesPath :: FilePath