diff --git a/indexation.cabal b/indexation.cabal
--- a/indexation.cabal
+++ b/indexation.cabal
@@ -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
diff --git a/library/Indexation/Potoki/Transform.hs b/library/Indexation/Potoki/Transform.hs
--- a/library/Indexation/Potoki/Transform.hs
+++ b/library/Indexation/Potoki/Transform.hs
@@ -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