@@ -122,10 +122,7 @@ resume reaper use k = do
122122invalidate :: Reaper DB Item
123123 -> SessionID -> IO ()
124124invalidate reaper k = do
125− -- repaerDelete does not exist
126− -- So, let's set the entry used and hope that it will be
127− -- cleaned in the future.
128125 db <- reaperRead reaper
129126 case Q.lookup k db of
130− Nothing -> return ()
131− Just (_,(_,ref)) -> atomicModifyIORef' ref $ \_ -> (Used, ())
127+ Nothing -> return ()
128+ Just (p,v) -> reaperAdd reaper (k,p,v,Del)