[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 326f7a96be5200f7714e87b2fe116a9433771056
Author: John Goerzen <jgoerzen at complete.org>
Date:   Fri Dec 24 01:03:30 2004 +0100

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

diff --git a/ChangeLog b/ChangeLog
index eafe134..a570ed8 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:03:30 GMT	John Goerzen <jgoerzen at complete.org>	patch-162
+
+    Summary:
+      Checkpointing lsl
+    Revision:
+      missingh--head--0.7--patch-162
+
+
+    modified files:
+     ChangeLog libsrc/MissingH/IO/HVFS/Utils.hs
+
+
 2004-12-23 18:02:24 GMT	John Goerzen <jgoerzen at complete.org>	patch-161
 
     Summary:
diff --git a/libsrc/MissingH/IO/HVFS/Utils.hs b/libsrc/MissingH/IO/HVFS/Utils.hs
index c0fab18..65eaf0c 100644
--- a/libsrc/MissingH/IO/HVFS/Utils.hs
+++ b/libsrc/MissingH/IO/HVFS/Utils.hs
@@ -123,9 +123,9 @@ lsl fs fp =
                    in vsprintf "%c%s  1 %-8d %-8d %-9d" 
                                typechar
                                (showmodes (vFileMode se))
-                               (fromIntegral $ vFileOwner se)
-                               (fromIntegral $ vFileGroup se)
-                               (fromIntegral $ vFileSize se)
+                               (toInteger $ vFileOwner se)
+                               (toInteger $ vFileGroup se)
+                               (toInteger $ vFileSize se)
                                            
         in do c <- vGetDirectoryContents fs fp
               pairs <- mapM (\x -> do ss <- vGetSymbolicLinkStatus fs x

-- 
haskell-testpack