Opened 11 years ago

Closed 10 years ago

Last modified 7 years ago

#735 closed bug (fixed)

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

Reported by: lnagy@… Owned by:
Priority: normal Milestone:
Component: libraries (other) Version: 6.4.1
Keywords: Cc:
Operating System: Unknown/Multiple Architecture: Unknown/Multiple
Type of failure: None/Unknown Test Case:
Blocked By: Blocking:
Related Tickets: Differential Rev(s):
Wiki Page:


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

Change History (4)

comment:1 Changed 10 years ago by panne

Resolution: fixed
Status: newclosed

Merged fix from HEAD

comment:2 Changed 8 years ago by simonmar

Architecture: MultipleUnknown/Multiple

comment:3 Changed 8 years ago by simonmar

Operating System: MultipleUnknown/Multiple

comment:4 Changed 7 years ago by simonmar

difficulty: Easy (1 hr)Easy (less than 1 hour)
Note: See TracTickets for help on using tickets.