From 2b47175b7f1712d4f78eac9fd6818f7ffe51dbfb Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Thu, 29 Dec 2022 20:23:59 +0000 Subject: cache: Specify that cache! returns the cached value. * mumi/cache.scm (cache!): Specify in the docstring that cache! returns the cached value. --- mumi/cache.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/mumi/cache.scm b/mumi/cache.scm index 13b21f9..98a7856 100644 --- a/mumi/cache.scm +++ b/mumi/cache.scm @@ -1,5 +1,6 @@ ;;; mumi -- Mediocre, uh, mail interface ;;; Copyright © 2020 Ricardo Wurmus +;;; Copyright © 2022 Arun Isaac ;;; ;;; This program is free software: you can redistribute it and/or ;;; modify it under the terms of the GNU Affero General Public License @@ -34,7 +35,7 @@ expired or return #F." (define* (cache! key value #:optional (ttl (%config 'cache-ttl))) "Store VALUE for the given KEY and mark it to expire after TTL -seconds." +seconds. Return VALUE." (let ((t (current-time))) (hash-set! %cache key `(#:expires ,(+ t ttl) #:value ,value)) value)) -- cgit v1.2.3