From 6bb0752626d93a600b47943130d4a58c0740da06 Mon Sep 17 00:00:00 2001
From: Hans-Peter Deifel <hpd@hpdeifel.de>
Date: Sat, 2 Jun 2018 08:50:09 +0200
Subject: [PATCH] Fix RefinablePartition.statesOfBlock

The order of arguments to Vector.slice was accidentally reversed,
leading to random results.
---
 src/Data/RefinablePartition.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Data/RefinablePartition.hs b/src/Data/RefinablePartition.hs
index 6434b0c1..7a14cb78 100644
--- a/src/Data/RefinablePartition.hs
+++ b/src/Data/RefinablePartition.hs
@@ -253,7 +253,7 @@ statesOfBlock partition b = do
   block <- getBlock partition b
 
   len <- blockSize partition b
-  let slice = VU.slice len (block^.startOffset) (partition^.statesByBlock)
+  let slice = VU.slice (block^.startOffset) len (partition^.statesByBlock)
   V.convert <$> (VUU.freeze slice)
 
 -- | Split a block into two new blocks for its marked and unmarked states.
-- 
GitLab