diff --git a/harpie.cabal b/harpie.cabal
--- a/harpie.cabal
+++ b/harpie.cabal
@@ -1,6 +1,6 @@
 cabal-version: 3.0
 name: harpie
-version: 0.1.1.0
+version: 0.1.2.0
 license: BSD-3-Clause
 license-file: LICENSE
 copyright: Tony Day (c) 2016-2024
@@ -81,7 +81,7 @@
         , first-class-families >=0.8.1 && <0.9
         , prettyprinter        >=1.7 && <1.8
         , quickcheck-instances >=0.3.31 && <0.4
-        , random               >=1.2 && <1.3
+        , random               >=1.2 && <1.4
         , vector               >=0.12.3 && <0.14
         , vector-algorithms    >=0.9.0 && <0.10
     exposed-modules:
diff --git a/src/Harpie/Array.hs b/src/Harpie/Array.hs
--- a/src/Harpie/Array.hs
+++ b/src/Harpie/Array.hs
@@ -825,18 +825,18 @@
 -- | Delete along a dimension at a position.
 --
 -- >>> pretty $ delete 2 0 a
--- [[[0,1,2],
---   [4,5,6],
---   [8,9,10]],
---  [[12,13,14],
---   [16,17,18],
---   [20,21,22]]]
+-- [[[1,2,3],
+--   [5,6,7],
+--   [9,10,11]],
+--  [[13,14,15],
+--   [17,18,19],
+--   [21,22,23]]]
 delete ::
   Dim ->
   Int ->
   Array a ->
   Array a
-delete d i a = backpermute (decAt d) (\s -> bool s (incAt d s) (getDim d s < i)) a
+delete d i a = backpermute (decAt d) (\s -> bool (incAt d s) s (getDim d s < i)) a
 
 -- | Insert along a dimension at the end.
 --
@@ -982,11 +982,7 @@
 -- >>> let s = indexes [0,1] [1,1] a
 -- >>> pretty s
 -- [16,17,18,19]
-indexes ::
-  Dims ->
-  [Int] ->
-  Array a ->
-  Array a
+indexes :: Dims -> [Int] -> Array a -> Array a
 indexes ds xs a = backpermute (deleteDims ds) (insertDims ds xs) a
 
 -- | Slice along dimensions with the supplied offsets and lengths.
@@ -996,12 +992,7 @@
 -- [[[13,14],
 --   [17,18],
 --   [21,22]]]
-slices ::
-  Dims ->
-  [Int] ->
-  [Int] ->
-  Array a ->
-  Array a
+slices :: Dims -> [Int] -> [Int] -> Array a -> Array a
 slices ds os ls a = dimsWise (\d (o, l) -> slice d o l) ds (List.zip os ls) a
 
 -- | Select the first element along the supplied dimensions.
diff --git a/src/Harpie/Fixed.hs b/src/Harpie/Fixed.hs
--- a/src/Harpie/Fixed.hs
+++ b/src/Harpie/Fixed.hs
@@ -7,6 +7,7 @@
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE UndecidableInstances #-}
 {-# LANGUAGE ViewPatterns #-}
+{-# OPTIONS_GHC -Wno-incomplete-patterns #-}
 {-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-}
 {-# OPTIONS_GHC -Wno-redundant-constraints #-}