[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 865e005efffff849823e2983ecc82f362d584ba6
Author: John Goerzen <jgoerzen at complete.org>
Date:   Thu Dec 29 00:28:27 2005 +0100

    Syntax fix in new recurseDirStat

diff --git a/MissingH/IO/HVFS/Utils.hs b/MissingH/IO/HVFS/Utils.hs
index f8e8444..99f301a 100644
--- a/MissingH/IO/HVFS/Utils.hs
+++ b/MissingH/IO/HVFS/Utils.hs
@@ -93,10 +93,11 @@ child files\/directories.
 -}
 recursiveRemove :: HVFS a => a -> FilePath -> IO ()
 recursiveRemove h fn =
-    recurseDirStat h fn >>= mapM_ $
+    recurseDirStat h fn >>= (mapM_ $
         \(fn, fs) -> if withStat fs vIsDirectory 
                          then vRemoveDirectory h fn
                          else vRemoveFile h fn
+                              )
 
 {- | Provide a result similar to the command ls -l over a directory.
 

-- 
haskell-testpack