[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 786ab50aa05a201134305b54ce2fb355e52337bc
Author: John Goerzen <jgoerzen at complete.org>
Date:   Mon Dec 20 22:59:04 2004 +0100

    Checkpointing again; this compiles
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.7--patch-93)

diff --git a/ChangeLog b/ChangeLog
index 56ab051..e2363b4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,18 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.7
 #
 
+2004-12-20 15:59:04 GMT	John Goerzen <jgoerzen at complete.org>	patch-93
+
+    Summary:
+      Checkpointing again; this compiles
+    Revision:
+      missingh--head--0.7--patch-93
+
+
+    modified files:
+     ChangeLog libsrc/MissingH/IO/HVFS.hs
+
+
 2004-12-20 15:47:21 GMT	John Goerzen <jgoerzen at complete.org>	patch-92
 
     Summary:
diff --git a/libsrc/MissingH/IO/HVFS.hs b/libsrc/MissingH/IO/HVFS.hs
index 5c1cc19..db2f53d 100644
--- a/libsrc/MissingH/IO/HVFS.hs
+++ b/libsrc/MissingH/IO/HVFS.hs
@@ -32,8 +32,8 @@ Copyright (c) 2004 John Goerzen, jgoerzen\@complete.org
 
 -}
 
-module MissingH.IO.HVFS(-- * Implementation Classes
-                        HVFS(..), HVFSStat(..),
+module MissingH.IO.HVFS(-- * Implementation Classes \/ Types
+                        HVFS(..), HVFSStat(..), HVFSStatEncap(..),
                         -- * Re-exported types from other modules
                         FilePath, DeviceID, FileID, FileMode, LinkCount,
                         UserID, GroupID, FileOffset, EpochTime,
@@ -95,10 +95,11 @@ class HVFS a where
     vGetSymbolicLinkStatus :: a -> FilePath -> IO HVFSStatEncap
     vGetModificationTime :: a -> FilePath -> IO ClockTime
     vRaiseError :: a -> IOErrorType -> String -> Maybe FilePath -> IO c
-    {- vGetModificationTime fs fp = 
-        do s <- (vGetFileStatus fs fp)::IO b
-           let t = vModificationTime s
-           return $ TOD (fromIntegral t) 0 -}
+    vGetModificationTime fs fp = 
+        do s <- (vGetFileStatus fs fp)
+           case s of
+                  HVFSStatEncap x -> return $ 
+                                      TOD (fromIntegral (vModificationTime x)) 0
     vRaiseError _ et desc mfp =
         ioError $ mkIOError et desc Nothing mfp
 

-- 
haskell-testpack