Drop benchmark SVG generation

Author: soulomoon

bench/Main.hs

@@ -20,14 +20,12 @@
     |       └── <HLS plugin>
     │           ├── <experiment>.gcStats.log          - RTS -s output
     │           ├── <experiment>.csv                  - stats for the experiment
-    │           ├── <experiment>.svg                  - Graph of bytes over elapsed time
-    │           ├── <experiment>.diff.svg             - idem, including the previous version
     │           ├── <experiment>.log                  - ghcide-bench output
     │           └── results.csv                       - results of all the experiments for the example
     ├── results.csv        - aggregated results of all the experiments and versions
-    └── <experiment>.svg   - graph of bytes over elapsed time, for all the included versions
+    └── resultDiff.csv     - diff of aggregated results compared with previous version
 
-   For diff graphs, the "previous version" is the preceding entry in the list of versions
+   For diff results, the "previous version" is the preceding entry in the list of versions
    in the config file. A possible improvement is to obtain this info via `git rev-list`.
 
    To execute the script:
@@ -36,8 +34,8 @@
 
    To build a specific analysis, enumerate the desired file artifacts
 
-   > stack bench --ba "bench-results/HEAD/results.csv bench-results/HEAD/edit.diff.svg"
-   > cabal bench --benchmark-options "bench-results/HEAD/results.csv bench-results/HEAD/edit.diff.svg"
+   > stack bench --ba "bench-results/HEAD/results.csv"
+   > cabal bench --benchmark-options "bench-results/HEAD/results.csv"
 
  -}
 {-# LANGUAGE DeriveAnyClass     #-}
@@ -165,8 +163,6 @@ createBuildSystem config = do
   benchRules build (MkBenchRules (askOracle $ GetSamples ()) benchHls warmupHls "haskell-language-server" (parallelism configStatic))
   addGetParentOracle
   csvRules build
-  svgRules build
-  heapProfileRules build
   phonyRules "" binaryName NoProfiling build (examples configStatic)
 
   whenJust (profileInterval configStatic) $ \i -> do

bench/README.md

@@ -41,30 +41,30 @@ The Shake script supports a number of phony targets that allow running a subset
 ```
 Targets:
   - bench-results/binaries/*/commitid
-  - bench-results/binaries/HEAD/ghcide
+  - bench-results/binaries/HEAD/haskell-language-server
   - bench-results/binaries/HEAD/ghc.path
-  - bench-results/binaries/*/ghcide
+  - bench-results/binaries/*/haskell-language-server
   - bench-results/binaries/*/ghc.path
   - bench-results/binaries/*/*.warmup
-  - bench-results/*/*/*/*.csv
-  - bench-results/*/*/*/*.gcStats.log
-  - bench-results/*/*/*/*.output.log
-  - bench-results/*/*/*/*.eventlog
-  - bench-results/*/*/*/*.hp
+  - bench-results/*/*/*/*/*.csv
+  - bench-results/*/*/*/*/*.gcStats.log
+  - bench-results/*/*/*/*/*.output.log
+  - bench-results/*/*/*/*/*.eventlog
+  - bench-results/*/*/*/*/*.hp
+  - bench-results/*/*/*/*/results.csv
+  - bench-results/*/*/*/*/resultDiff.csv
   - bench-results/*/*/*/results.csv
-  - bench-results/*/*/results.csv
-  - bench-results/*/results.csv
   - bench-results/*/*/*/resultDiff.csv
+  - bench-results/*/*/results.csv
   - bench-results/*/*/resultDiff.csv
+  - bench-results/*/results.csv
   - bench-results/*/resultDiff.csv
-  - bench-results/*/*/*/*.svg
-  - bench-results/*/*/*/*.diff.svg
-  - bench-results/*/*/*.svg
-  - bench-results/*/*/*/*.heap.svg
-  - Cabal-3.0.0.0
-  - lsp-types-1.0.0.1
+  - cabal
+  - lsp-types
   - all
-  - profiled-Cabal-3.0.0.0
-  - profiled-lsp-types-1.0.0.1
+  - all-binaries
+  - profiled-cabal
+  - profiled-lsp-types
   - profiled-all
+  - profiled-all-binaries
   ```

cabal.project

@@ -61,33 +61,16 @@ if impl(ghc >= 9.13)
 
 if impl(ghc >= 9.14)
   allow-newer:
-    SVGFonts:containers,
-    active:base,
     aeson:containers,
     aeson:template-haskell,
     aeson:time,
     binary-instances:base,
     binary-instances:tagged,
     binary-orphans:base,
-    blaze-svg:base,
     boring:base,
     cabal-install-parsers:containers,
     constraints-extras:template-haskell,
     dependent-map:containers,
-    diagrams-contrib:base,
-    diagrams-contrib:containers,
-    diagrams-core:base,
-    diagrams-core:containers,
-    diagrams-lib:base,
-    diagrams-lib:containers,
-    diagrams-postscript:base,
-    diagrams-svg:base,
-    diagrams-svg:containers,
-    dual-tree:base,
-    eventlog2html:containers,
-    eventlog2html:optparse-applicative,
-    force-layout:base,
-    ghc-events:base,
     ghc-trace-events:base,
     hie-compat:base,
     indexed-traversable:base,
@@ -96,17 +79,13 @@ if impl(ghc >= 9.14)
     lukko:base,
     microstache:base,
     microstache:containers,
-    monoid-extras:base,
     monad-control:transformers-compat,
-    newtype-generics:base,
     quickcheck-instances:base,
     quickcheck-instances:containers,
     random-fu:random,
     semialign:base,
     semialign:containers,
-    statestack:base,
     string-interpolate:template-haskell,
-    svg-builder:base,
     tasty-hspec:QuickCheck,
     tasty-hspec:base,
     text-iso8601:time,

haskell-language-server.cabal

@@ -1979,8 +1979,7 @@ benchmark benchmark
     main-is: Main.hs
     hs-source-dirs: bench
     build-tool-depends:
-        haskell-language-server:ghcide-bench,
-        eventlog2html:eventlog2html,
+        haskell-language-server:ghcide-bench
     default-extensions:
         LambdaCase
         RecordWildCards

shake-bench/shake-bench.cabal

@@ -24,12 +24,6 @@ library
         aeson,
         base == 4.*,
         bytestring,
-        Chart,
-        Chart-diagrams,
-        diagrams-contrib,
-        diagrams-core,
-        diagrams-lib,
-        diagrams-svg,
         directory,
         extra >= 1.7.2,
         filepath,