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

2021-05-20 14:28:09 +02:00 · 2021-05-20 14:28:09 +02:00 · 59ef730317
commit 59ef730317
parent 96a940b60c
1 changed files with 2 additions and 2 deletions
--- a/yesod-core/src/Yesod/Core/Class/Breadcrumbs.hs
+++ b/yesod-core/src/Yesod/Core/Class/Breadcrumbs.hs
@ -29,8 +29,8 @@ breadcrumbs = do
    go back Nothing = return back
    go back (Just this) = do
        (title, next) <- breadcrumb this
-        if next `elem` (map (Just . fst) back)
+        if this `elem` map fst back
        then
-          error $ "infinite recursion in breadcrumbs at" <> show title
+          error $ "yesod-core: infinite recursion in breadcrumbs at " <> show title
        else
          go ((this, title) : back) next