Moredocs

dustin · Aug 21, 2023 · d09998a · d09998a
1 parent affbb30
commit d09998a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/Data/Map/Strict/Expiring.hs b/src/Data/Map/Strict/Expiring.hs
@@ -28,6 +28,7 @@ data Entry g a = Entry {
   gen   :: !g
 } deriving (Functor, Show)
 
+-- | A map of values that expire after a given generation.
 data Map g k a = Map {
   map        :: !(Map.Map k (Entry g a)),
   generation :: !g,

diff --git a/test/Spec.hs b/test/Spec.hs
@@ -168,7 +168,7 @@ data MapOp = MapInsert Int Int
            | MapUpdateNothing Int
   deriving Show
 
--- Small number of keys so we be likely to actually encounter things.
+-- Small number of keys so we will likely actually encounter key reuse, but still have a handful of different ones.
 arbitraryKey :: Gen Int
 arbitraryKey = choose (0, 5)