haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

yesod-core: refactor the loop detector to not use Just wrapping

Browse Source
This commit is contained in:
Tom Sydney Kerckhove 2021-05-20 14:28:09 +02:00
parent 96a940b60c
commit 59ef730317
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-core/src/Yesod/Core/Class/Breadcrumbs.hs
View File

@ -29,8 +29,8 @@ breadcrumbs = do
go back Nothing = return back go back Nothing = return back
go back (Just this) = do go back (Just this) = do
(title, next) <- breadcrumb this (title, next) <- breadcrumb this
if next `elem` (map (Just . fst) back) if this `elem` map fst back
then then
error $ "infinite recursion in breadcrumbs at" <> show title error $ "yesod-core: infinite recursion in breadcrumbs at " <> show title
else else
go ((this, title) : back) next go ((this, title) : back) next