Commit e3a5e55c authored by Hans-Peter Deifel's avatar Hans-Peter Deifel
Browse files

Remove code duplication

parent 5cf287cb
......@@ -45,6 +45,7 @@ import qualified Data.Vector.Unboxed as VUU
import Lens.Micro
import Lens.Micro.TH
import Data.Vector.Utils (iforM_)
import qualified Data.Vector.Unboxed.Mutable.Utils as VU
import Data.Partition.Common (State,Block(..))
import Data.Partition (Partition)
......@@ -444,6 +445,3 @@ updateLocations partition block =
blockIndices :: BlockRepr -> [Int]
blockIndices block = [block^.startOffset..block^.endOffset-1]
iforM_ :: Monad m => V.Vector a -> (Int -> a -> m b) -> m ()
iforM_ = flip V.imapM_
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment