Missing case in fgl/Data/Graph/Inductive/Internal/RootPath.hs

[lnagy@…]

In the package `fgl', in the file Data/Graph/Inductive/Internal/RootPath.hs a case is missing from the function `findP' that causes it to crash on some graphs (but not all).

Patch that fixes the bug:

--- RootPath.hs 2006-03-27 18:16:26.000000000 -0500
+++ RootPath.hs 2006-03-27 18:16:01.000000000 -0500
@@ -34,6 +34,7 @@
 -- | Find the first path in a tree that starts with the given node
 findP :: Node -> LRTree a -> [LNode a]
 findP _ []                                  = []
+findP v ((LP []):ps)                        = findP v ps
 findP v ((LP (p@((w,_):_))):ps) | v==w      = p
                                 | otherwise = findP v ps

[panne]

Merged fix from HEAD