#735: Missing case in fgl/Data/Graph/Inductive/Internal/RootPath.hs
----------------------------------+-----------------------------------------
Reporter: [EMAIL PROTECTED] | Owner:
Type: bug | Status: new
Priority: normal | Milestone:
Component: libraries (other) | Version: 6.4.1
Severity: normal | Keywords:
Os: Multiple | Difficulty: Easy (1 hr)
Architecture: Multiple |
----------------------------------+-----------------------------------------
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
}}}
--
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/735>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler
_______________________________________________
Glasgow-haskell-bugs mailing list
Glasgow-haskell-bugs@haskell.org
http://www.haskell.org/mailman/listinfo/glasgow-haskell-bugs