Move PQueue benches to Bench.Data.PQueue.Prio.Min

Move priority queue benchmarks from Bench.PriorityQueue.MinPQueue to Bench.Data.PQueue.Prio.Min, which better fits into the rest of the module naming scheme.
pgujjula · May 16, 2024 · 62e2b32 · 62e2b32
1 parent 55692a0
commit 62e2b32
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 10 deletions.
diff --git a/apply-merge.cabal b/apply-merge.cabal
@@ -106,8 +106,8 @@ benchmark apply-merge-benchmarks
       Data.PQueue.Prio.Min.Mutable
       Bench.ApplyMerge
       Bench.Data.DoublyLinkedList.STRef
-      Bench.PriorityQueue.MinPQueue
-      Bench.PriorityQueue.MinPQueue.Mutable
+      Bench.Data.PQueue.Prio.Min
+      Bench.Data.PQueue.Prio.Min.Mutable
   hs-source-dirs:
       src
       bench

diff --git a/bench/Bench/PriorityQueue/MinPQueue.hs → bench/Bench/Data/PQueue/Prio/Min.hs b/bench/Bench/PriorityQueue/MinPQueue.hs → bench/Bench/Data/PQueue/Prio/Min.hs
@@ -2,7 +2,7 @@
 -- SPDX-License-Identifier: BSD-3-Clause
 {-# LANGUAGE CPP #-}
 
-module Bench.PriorityQueue.MinPQueue (benchmarks) where
+module Bench.Data.PQueue.Prio.Min (benchmarks) where
 
 #if !MIN_VERSION_base(4,20,0)
 import Data.List (foldl')
@@ -35,4 +35,4 @@ insertDeleteBenchmark = bgroup "insert/delete" (map mkBench [1 .. 6])
              in getMin finalQueue
 
 benchmarks :: Benchmark
-benchmarks = bgroup "Bench.PriorityQueue.MinPQueue" [insertDeleteBenchmark]
+benchmarks = bgroup "Data.PQueue.Prio.Min" [insertDeleteBenchmark]
diff --git a/.../Bench/PriorityQueue/MinPQueue/Mutable.hs → bench/Bench/Data/PQueue/Prio/Min/Mutable.hs b/.../Bench/PriorityQueue/MinPQueue/Mutable.hs → bench/Bench/Data/PQueue/Prio/Min/Mutable.hs
@@ -1,6 +1,6 @@
 -- SPDX-FileCopyrightText: Copyright Preetham Gujjula
 -- SPDX-License-Identifier: BSD-3-Clause
-module Bench.PriorityQueue.MinPQueue.Mutable (benchmarks) where
+module Bench.Data.PQueue.Prio.Min.Mutable (benchmarks) where
 
 import Control.Monad (forM_)
 import Control.Monad.ST (runST)
@@ -33,5 +33,5 @@ insertDeleteBenchmark = bgroup "insert/delete" (map mkBench [1 .. 6])
 benchmarks :: Benchmark
 benchmarks =
   bgroup
-    "Bench.PriorityQueue.MinPQueue.Mutable"
+    "Data.PQueue.Prio.Min.Mutable"
     [insertDeleteBenchmark]
diff --git a/bench/Main.hs b/bench/Main.hs
@@ -5,15 +5,15 @@ module Main (main) where
 
 import Bench.ApplyMerge qualified
 import Bench.Data.DoublyLinkedList.STRef qualified
-import Bench.PriorityQueue.MinPQueue qualified
-import Bench.PriorityQueue.MinPQueue.Mutable qualified
+import Bench.Data.PQueue.Prio.Min qualified
+import Bench.Data.PQueue.Prio.Min.Mutable qualified
 import Test.Tasty.Bench (defaultMain)
 
 main :: IO ()
 main =
   defaultMain
     [ Bench.ApplyMerge.benchmarks,
       Bench.Data.DoublyLinkedList.STRef.benchmarks,
-      Bench.PriorityQueue.MinPQueue.benchmarks,
-      Bench.PriorityQueue.MinPQueue.Mutable.benchmarks
+      Bench.Data.PQueue.Prio.Min.benchmarks,
+      Bench.Data.PQueue.Prio.Min.Mutable.benchmarks
     ]