From 900b926db8cfaa3f01c66ab16d5e91092b4acf8f Mon Sep 17 00:00:00 2001 From: Kirill Kuznetsov Date: Wed, 10 Apr 2024 13:18:36 +0300 Subject: [PATCH] Simplify isExpired --- src/React/Basic/Hooks/Suspense/Store.purs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/React/Basic/Hooks/Suspense/Store.purs b/src/React/Basic/Hooks/Suspense/Store.purs index 0c38260..dbb236b 100644 --- a/src/React/Basic/Hooks/Suspense/Store.purs +++ b/src/React/Basic/Hooks/Suspense/Store.purs @@ -38,7 +38,7 @@ mkSuspenseStore :: mkSuspenseStore defaultMaxAge backend = do ref <- Ref.new Map.empty let - isExpired maxAge now' (_ /\ d) = unInstant now' < unInstant d <> maxAge + isExpired maxAge now' (_ /\ savedTime) = unInstant savedTime <> maxAge < unInstant now' pruneCache = do case defaultMaxAge of