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 |