Source

xp.memo / code / Memo / SNMap / SNMap.hs

Diff from to

File code/Memo/SNMap/SNMap.hs

 lookupSNMap map sn = return (lookup sn map)
 
 insertSNMap :: SNMap k v -> StableName k -> v -> IO ()
-insertSNMap = undefined
+insertSNMap m k v = -- (k,v) : filter (\(k',_) -> k /= k') m
+                    undefined
 
 removeSNMap :: SNMap k v -> StableName k -> IO ()
 removeSNMap = undefined