Opened 8 years ago

Closed 8 years ago

Last modified 4 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: Difficulty: Easy (less than 1 hour)
Test Case: Blocked By:
Blocking: Related Tickets:

Description

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 8 years ago by panne

  • Resolution set to fixed
  • Status changed from new to closed

Merged fix from HEAD

comment:2 Changed 6 years ago by simonmar

  • Architecture changed from Multiple to Unknown/Multiple

comment:3 Changed 6 years ago by simonmar

  • Operating System changed from Multiple to Unknown/Multiple

comment:4 Changed 4 years ago by simonmar

  • Difficulty changed from Easy (1 hr) to Easy (less than 1 hour)
Note: See TracTickets for help on using tickets.