Permalink
Browse files

Add a little extra debug logging in Cuckoo.hs:searchOne. Trying to di…

…agnose #2.
  • Loading branch information...
gregorycollins committed Nov 24, 2011
1 parent a83acbf commit 79e95c6cfb568e99f07d843ba7b46f61e4ba57ba
Showing with 2 additions and 0 deletions.
  1. +2 −0 src/Data/HashTable/ST/Cuckoo.hs
@@ -253,7 +253,9 @@ searchOne :: (Eq k) =>
searchOne !keys !hashes !k = go
where
go !b !h = do
+ debug $ "searchOne: go " ++ show b ++ " " ++ show h
idx <- cacheLineSearch hashes b h
+ debug $ "searchOne: cacheLineSearch returned " ++ show idx
case idx of
-1 -> return (-1)

0 comments on commit 79e95c6

Please sign in to comment.