From 017f47a83b7b1d8f32982f58e688802735b14e9f Mon Sep 17 00:00:00 2001 From: Kleidi Bujari Date: Thu, 23 Jul 2026 11:25:39 -0700 Subject: . --- packages/code/hubris/src/Hubris/Collections/LRUCache.hs | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 packages/code/hubris/src/Hubris/Collections/LRUCache.hs (limited to 'packages/code/hubris/src/Hubris') diff --git a/packages/code/hubris/src/Hubris/Collections/LRUCache.hs b/packages/code/hubris/src/Hubris/Collections/LRUCache.hs new file mode 100644 index 0000000..995512d --- /dev/null +++ b/packages/code/hubris/src/Hubris/Collections/LRUCache.hs @@ -0,0 +1,16 @@ +module Hubris.Collections.LRUCache + ( empty + , insert + ) where + +import qualified Data.Map as M +import Data.Monoid (Sum (..)) + +type LRUCache a = M.Map a (Sum Int) + +empty :: LRUCache a +empty = M.empty + +insert :: a -> LRUCache a -> LRUCache a +insert = M.alter (fmap $ const 0) + where -- cgit v1.3.1