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

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

diff --git a/ChangeLog b/ChangeLog
index f380eec..3f79b24 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:00:39 GMT	John Goerzen <jgoerzen at complete.org>	patch-160
+
+    Summary:
+      Checkpointing lsl
+    Revision:
+      missingh--head--0.7--patch-160
+
+
+    modified files:
+     ChangeLog libsrc/MissingH/IO/HVFS/Utils.hs
+
+
 2004-12-23 17:59:37 GMT	John Goerzen <jgoerzen at complete.org>	patch-159
 
     Summary:
diff --git a/libsrc/MissingH/IO/HVFS/Utils.hs b/libsrc/MissingH/IO/HVFS/Utils.hs
index a27d2fa..1ff38ee 100644
--- a/libsrc/MissingH/IO/HVFS/Utils.hs
+++ b/libsrc/MissingH/IO/HVFS/Utils.hs
@@ -120,7 +120,9 @@ lsl fs fp =
                        else if vIsSocket se then 's'
                        else if vIsNamedPipe se then 's'
                        else '-'
-                   in [typechar] ++ showmodes (vFileMode se)
+                   in vsprintf "%c%s" 
+                               typechar
+                               (showmodes (vFileMode se))
                                            
         in do c <- vGetDirectoryContents fs fp
               pairs <- mapM (\x -> do ss <- vGetSymbolicLinkStatus fs x

-- 
haskell-testpack