diff --git a/src/React/Basic/Hooks/Internal.purs b/src/React/Basic/Hooks/Internal.purs index b3f30aa..f502ff7 100644 --- a/src/React/Basic/Hooks/Internal.purs +++ b/src/React/Basic/Hooks/Internal.purs @@ -191,6 +191,6 @@ type HookApply hooks (newHook :: Type -> Type) --| order they appear when actually used in do-notation. --| ```purescript --| type UseCustomHook hooks = UseEffect String (UseState Int hooks) ---| type UseCustomHook' = UseState Int & UseEffect String +--| type UseCustomHook' hooks = hooks & UseState Int & UseEffect String --| ``` infixl 0 type HookApply as & \ No newline at end of file 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