From db7274b7bbc67722abbb4851a9c0a5b4a933248a Mon Sep 17 00:00:00 2001 From: Nicolas Biri Date: Thu, 16 Mar 2023 17:32:33 +0100 Subject: [PATCH] Fix names and comments --- marconi-core/src/Marconi/Core/Experiment.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/marconi-core/src/Marconi/Core/Experiment.hs b/marconi-core/src/Marconi/Core/Experiment.hs index eb0c26f40a..da2473d92a 100644 --- a/marconi-core/src/Marconi/Core/Experiment.hs +++ b/marconi-core/src/Marconi/Core/Experiment.hs @@ -177,13 +177,13 @@ newtype InDatabase desc = InDatabase { _con :: SQL.Connection } makeLenses 'InDatabase --- | An indexer that has at most '_slotsInMemory' events in memory and put the older one in database. +-- | An indexer that has at most '_blocksInMemory' events in memory and put the older one in database. -- The query interface for this indexer will alwys go through the database first and then aggregate -- results presents in memory. data MixedIndexer mem store desc = MixedIndexer - { _slotsInMemory :: !Word -- ^ How many slots do we keep in memory - , _inMemory :: !(mem desc) -- ^ The fast storage for latest elements - , _inDatabase :: !(store desc) -- ^ In database storage, should be similar to the original indexer + { _blocksInMemory :: !Word -- ^ How many blocks do we keep in memory + , _inMemory :: !(mem desc) -- ^ The fast storage for latest elements + , _inDatabase :: !(store desc) -- ^ In database storage, should be similar to the original indexer } makeLenses 'MixedIndexer @@ -216,7 +216,7 @@ instance ) => IsIndex (MixedIndexer InMemory store) desc m where index timedEvent indexer = do - let maxMemSize = fromIntegral $ indexer ^. slotsInMemory + let maxMemSize = fromIntegral $ indexer ^. blocksInMemory currentSize = length (indexer ^. inMemory . events) if currentSize >= maxMemSize then do