indexation 0.4.2.2 → 0.4.2.3
raw patch · 2 files changed
+3/−1 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
indexation.cabal view
@@ -1,5 +1,5 @@ name: indexation-version: 0.4.2.2+version: 0.4.2.3 category: Data synopsis: Tools for entity indexation description: A set of tools for indexing entities
library/Indexation/Potoki/Transform.hs view
@@ -20,6 +20,7 @@ index :: (Eq entity, Hashable entity) => Indexer entity -> Transform entity (Index entity) index (Indexer sizeVar map) =+ {-# SCC "index" #-} mapInIO $ \ entity -> atomically $ StmMap.focus focus entity map where focus = Focus.Focus conceal reveal where@@ -31,6 +32,7 @@ lookup :: EntityTable entity -> Transform (Index entity) (Maybe entity) lookup (EntityTable entityTableVector) =+ {-# SCC "lookup" #-} arr $ \ (Index indexInt) -> if Vector.length entityTableVector > indexInt then Just $! Vector.unsafeIndex entityTableVector indexInt else Nothing