diff options
| -rw-r--r-- | src/Index.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Index.hs b/src/Index.hs index 3703f65..4b852bf 100644 --- a/src/Index.hs +++ b/src/Index.hs @@ -333,7 +333,7 @@ indexUpdateImport index@(Index _ mp _) chan = do -- but parsing the events happens lazily. indexGetEventsLinear :: Index -> Channel -> CountKind -> Int -> Int -> IO [(YMDHMS, EventID, Event)] indexGetEventsLinear index@(Index _ mp _) chan kind from count = do - atomicPrintS $ "indexGetEventsLinear " ++ show chan ++ " " ++ show kind ++ " " ++ show from ++ " " ++ show count + -- atomicPrintS $ "indexGetEventsLinear " ++ show chan ++ " " ++ show kind ++ " " ++ show from ++ " " ++ show count ci <- readIORef (mp Map.! chan) if from + count < 0 || from >= getCount kind (ciTotal ci) then return [] |