Rename, organise and cleanup

Renamings:
- *sumOuter1 -> *sumOuter1Prim
- *rerank -> *rerankPrim
- *replicateScal -> *replicatePrim

1 files changed, 13 insertions, 13 deletions

diff --git a/bench/Main.hs b/bench/Main.hs
index b604eb9..8df09a9 100644
--- a/bench/Main.hs
+++ b/bench/Main.hs
@@ -156,45 +156,45 @@ tests_compare =
   let n = 1_000_000 in
   [bgroup "Num"
     [bench "sum(+) Double [1e6]" $
-      nf (\(a, b) -> runScalar (rsumOuter1 (liftRanked2 (mliftPrim2 (+)) a b)))
+      nf (\(a, b) -> runScalar (rsumOuter1Prim (liftRanked2 (mliftPrim2 (+)) a b)))
          (riota @Double n, riota n)
     ,bench "sum(*) Double [1e6]" $
-      nf (\(a, b) -> runScalar (rsumOuter1 (liftRanked2 (mliftPrim2 (*)) a b)))
+      nf (\(a, b) -> runScalar (rsumOuter1Prim (liftRanked2 (mliftPrim2 (*)) a b)))
          (riota @Double n, riota n)
     ,bench "sum(/) Double [1e6]" $
-      nf (\(a, b) -> runScalar (rsumOuter1 (liftRanked2 (mliftPrim2 (/)) a b)))
+      nf (\(a, b) -> runScalar (rsumOuter1Prim (liftRanked2 (mliftPrim2 (/)) a b)))
          (riota @Double n, riota n)
     ,bench "sum(**) Double [1e6]" $
-      nf (\(a, b) -> runScalar (rsumOuter1 (liftRanked2 (mliftPrim2 (**)) a b)))
+      nf (\(a, b) -> runScalar (rsumOuter1Prim (liftRanked2 (mliftPrim2 (**)) a b)))
          (riota @Double n, riota n)
     ,bench "sum(sin) Double [1e6]" $
-      nf (\a -> runScalar (rsumOuter1 (liftRanked1 (mliftPrim sin) a)))
+      nf (\a -> runScalar (rsumOuter1Prim (liftRanked1 (mliftPrim sin) a)))
          (riota @Double n)
     ,bench "sum Double [1e6]" $
-      nf (\a -> runScalar (rsumOuter1 a))
+      nf (\a -> runScalar (rsumOuter1Prim a))
          (riota @Double n)
     ]
   ,bgroup "NumElt"
     [bench "sum(+) Double [1e6]" $
-      nf (\(a, b) -> runScalar (rsumOuter1 (a + b)))
+      nf (\(a, b) -> runScalar (rsumOuter1Prim (a + b)))
          (riota @Double n, riota n)
     ,bench "sum(*) Double [1e6]" $
-      nf (\(a, b) -> runScalar (rsumOuter1 (a * b)))
+      nf (\(a, b) -> runScalar (rsumOuter1Prim (a * b)))
          (riota @Double n, riota n)
     ,bench "sum(/) Double [1e6]" $
-      nf (\(a, b) -> runScalar (rsumOuter1 (a / b)))
+      nf (\(a, b) -> runScalar (rsumOuter1Prim (a / b)))
          (riota @Double n, riota n)
     ,bench "sum(**) Double [1e6]" $
-      nf (\(a, b) -> runScalar (rsumOuter1 (a ** b)))
+      nf (\(a, b) -> runScalar (rsumOuter1Prim (a ** b)))
          (riota @Double n, riota n)
     ,bench "sum(sin) Double [1e6]" $
-      nf (\a -> runScalar (rsumOuter1 (sin a)))
+      nf (\a -> runScalar (rsumOuter1Prim (sin a)))
          (riota @Double n)
     ,bench "sum Double [1e6]" $
-      nf (\a -> runScalar (rsumOuter1 a))
+      nf (\a -> runScalar (rsumOuter1Prim a))
          (riota @Double n)
     ,bench "sum(*) Double [1e6] stride 1; -1" $
-      nf (\(a, b) -> runScalar (rsumOuter1 (a * b)))
+      nf (\(a, b) -> runScalar (rsumOuter1Prim (a * b)))
          (riota @Double n, rrev1 (riota n))
     ,bench "dotprod Float [1e6]" $
       nf (\(a, b) -> rdot a b)