[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36

[John Goerzen]

The following commit has been merged in the master branch:
commit 809e4b04333f2650d182d4b54cdcd3ed715dd22c
Author: John Goerzen <jgoerzen at complete.org>
Date:   Thu Dec 29 00:05:06 2005 +0100

    Changed spanList to the suggested one from Bulat

diff --git a/MissingH/List.hs b/MissingH/List.hs
index e77059d..a7ebe02 100644
--- a/MissingH/List.hs
+++ b/MissingH/List.hs
@@ -110,10 +110,6 @@ list instead of just one element.
 @spanList p xs@ is the same as @(takeWhileList p xs, dropWhileList p xs)@ 
 -}
 spanList :: ([a] -> Bool) -> [a] -> ([a], [a])
-spanList p xs = (takeWhileList p xs, dropWhileList p xs)
-
-{- Suggestion from Bulat Ziganshin <bulatz at HotPOP.com>:
-(not yet applied due to lack of unit test for this function)
 
 spanList _ [] = ([],[])
 spanList func list@(x:xs) =
@@ -121,9 +117,6 @@ spanList func list@(x:xs) =
        then (x:ys,zs)
        else ([],list)
     where (ys,zs) = spanList func xs
--}
-
-
 
 {- | Similar to Data.List.break, but performs the test on the entire remaining
 list instead of just one element.

-- 
haskell-testpack