fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore(cache): add caching for simpleLinks and modal access

Browse Source
This commit is contained in:
Steffen Jost 2024-06-11 12:53:17 +02:00
parent 9fd80f2552
commit 64b21d6fe6
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Handler/Utils/Widgets.hs
View File

@ -38,7 +38,8 @@ visibleUTCTime dtf t = do
-- | Simple link to a known route -- | Simple link to a known route
simpleLink :: HasRoute UniWorX url => Widget -> url -> Widget simpleLink :: HasRoute UniWorX url => Widget -> url -> Widget
simpleLink lbl url = do simpleLink lbl url = do
isAuth <- hasReadAccessTo $ urlRoute url let route = urlRoute url
isAuth <- liftHandler . $cachedHereBinary route $ hasReadAccessTo route
if | isAuth -> do if | isAuth -> do
tUrl <- toTextUrl url tUrl <- toTextUrl url
[whamlet| [whamlet|
@ -127,7 +128,7 @@ editedByW fmt tm usr = do
-- | like `modal`, but only conditionally displays the modal link only after checking access rights. WARNING: this might be too slow for large dbTable. Use `modalAccessCheckOnClick` instead -- | like `modal`, but only conditionally displays the modal link only after checking access rights. WARNING: this might be too slow for large dbTable. Use `modalAccessCheckOnClick` instead
modalAccess :: Widget -> Widget -> Bool -> Route UniWorX -> Widget modalAccess :: Widget -> Widget -> Bool -> Route UniWorX -> Widget
modalAccess wdgtNo wdgtYes writeAccess route = do modalAccess wdgtNo wdgtYes writeAccess route = do
authOk <- liftHandler $ bool hasReadAccessTo hasWriteAccessTo writeAccess route authOk <- liftHandler . $cachedHereBinary (route, writeAccess) $ bool hasReadAccessTo hasWriteAccessTo writeAccess route
if authOk if authOk
then modal wdgtYes (Left $ SomeRoute route) then modal wdgtYes (Left $ SomeRoute route)
else wdgtNo else wdgtNo