Revert part of 33cafcc

IntersectMBO · Sep 22, 2022 · 04591ea · 04591ea
1 parent 3d0de34
commit 04591ea
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/rewindable-index/src/RewindableIndex/Index/VSplit.hs b/rewindable-index/src/RewindableIndex/Index/VSplit.hs
@@ -189,13 +189,13 @@ insert e ix = do
         c  = ix ^. storage . cursor
         vs = VGM.length es
     VGM.unsafeWrite es c e
+    ns <- (ix ^. onInsert) ix e
     let ix' = storage            %~ updateSizes                $
-              (storage . cursor) %~ (\c' -> (c' + 1) `rem` vs) $ ix
-    res <- if isStorageFull (ix' ^. storage)
-      then storeEvents ix'
-      else pure        ix'
-    (ix ^. onInsert) ix e
-    return res
+              (storage . cursor) %~ (\c' -> (c' + 1) `rem` vs) $
+              notifications      %~ (ns++)                     $ ix
+    if isStorageFull (ix' ^. storage)
+    then storeEvents ix'
+    else pure        ix'
 
   where
     updateSizes :: Storage v m e -> Storage v m e