[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 0a64d0bdf574782fea2e18494d50b77ea21740bf
Author: John Goerzen <jgoerzen at complete.org>
Date:   Fri Dec 24 01:02:24 2004 +0100

    Checkpointing lsl
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.7--patch-161)

diff --git a/ChangeLog b/ChangeLog
index 3f79b24..eafe134 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,18 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.7
 #
 
+2004-12-23 18:02:24 GMT	John Goerzen <jgoerzen at complete.org>	patch-161
+
+    Summary:
+      Checkpointing lsl
+    Revision:
+      missingh--head--0.7--patch-161
+
+
+    modified files:
+     ChangeLog libsrc/MissingH/IO/HVFS/Utils.hs
+
+
 2004-12-23 18:00:39 GMT	John Goerzen <jgoerzen at complete.org>	patch-160
 
     Summary:
diff --git a/libsrc/MissingH/IO/HVFS/Utils.hs b/libsrc/MissingH/IO/HVFS/Utils.hs
index 1ff38ee..c0fab18 100644
--- a/libsrc/MissingH/IO/HVFS/Utils.hs
+++ b/libsrc/MissingH/IO/HVFS/Utils.hs
@@ -120,9 +120,12 @@ lsl fs fp =
                        else if vIsSocket se then 's'
                        else if vIsNamedPipe se then 's'
                        else '-'
-                   in vsprintf "%c%s" 
+                   in vsprintf "%c%s  1 %-8d %-8d %-9d" 
                                typechar
                                (showmodes (vFileMode se))
+                               (fromIntegral $ vFileOwner se)
+                               (fromIntegral $ vFileGroup se)
+                               (fromIntegral $ vFileSize se)
                                            
         in do c <- vGetDirectoryContents fs fp
               pairs <- mapM (\x -> do ss <- vGetSymbolicLinkStatus fs x

-- 
haskell-testpack