[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 0c6dc2acc35544476adb494ab942d3070a47e419
Author: John Goerzen <jgoerzen at complete.org>
Date:   Thu Jul 21 20:52:15 2005 +0100

    Various Windows patches to HVFS.hs

diff --git a/MissingH/IO/HVFS.hs b/MissingH/IO/HVFS.hs
index 5a39611..c5e4323 100644
--- a/MissingH/IO/HVFS.hs
+++ b/MissingH/IO/HVFS.hs
@@ -118,15 +118,25 @@ Inplementators must, at minimum, implement 'vIsDirectory' and
 
 Default implementations of everything else are provided, returning
 reasonable values.
+
+A default implementation of this is not currently present on Windows.
 -}
 class (Show a) => HVFSStat a where
     vDeviceID :: a -> DeviceID
     vFileID :: a -> FileID
+
     {- | Refers to file permissions, NOT the st_mode field from stat(2) -}
     vFileMode :: a -> FileMode
+
+#ifndef mingw32_TARGET_OS
+    -- | Not supported on Windows
     vLinkCount :: a -> LinkCount
+    -- | Not supported on Windows
     vFileOwner :: a -> UserID
+    -- | Not supported on Windows
     vFileGroup :: a -> GroupID
+#endif
+
     vSpecialDeviceID :: a -> DeviceID
     vFileSize :: a -> FileOffset
     vAccessTime :: a -> EpochTime
@@ -250,6 +260,7 @@ class HVFS a => HVFSOpenable a where
            withOpen oe (\fh -> do vPutStr fh s
                                   vClose fh)
 
+#ifndef mingw32_HOST_OS
 instance Show FileStatus where
     show _ = "<FileStatus>"
 
@@ -275,6 +286,7 @@ instance HVFSStat FileStatus where
     vIsDirectory = isDirectory
     vIsSymbolicLink = isSymbolicLink
     vIsSocket = isSocket
+#endif
 
 data SystemFS = SystemFS
               deriving (Eq, Show)

-- 
haskell-testpack