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

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

Trac metadata

Trac field	Value
Version	6.4.1
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	libraries (other)
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system	Multiple
Architecture	Multiple