[GHC] #735: Missing case in fgl/Data/Graph/Inductive/Internal/RootPath.hs

#735: Missing case in fgl/Data/Graph/Inductive/Internal/RootPath.hs
----------------------------------+-----------------------------------------
    Reporter:  lnagy@xxxxxxx      |        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@xxxxxxxxxxx
http://www.haskell.org/mailman/listinfo/glasgow-haskell-bugs