[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 ec17bc8fb1edb5428a4de402a9008a00c6ba28e1
Author: John Goerzen <jgoerzen at complete.org>
Date:   Fri Jul 22 20:56:24 2005 +0100

    Now compiles on Windows

diff --git a/MissingH/IO/WindowsCompat.hs b/MissingH/IO/WindowsCompat.hs
index 600cba5..16f3423 100644
--- a/MissingH/IO/WindowsCompat.hs
+++ b/MissingH/IO/WindowsCompat.hs
@@ -37,10 +37,12 @@ Copyright (c) 2005 John Goerzen, jgoerzen\@complete.org
 -}
 
 module MissingH.IO.WindowsCompat
+#ifndef mingw32_HOST_OS
+where ()
+#else
+       (module MissingH.IO.StatCompat, module MissingH.IO.WindowsCompat)
 where
 
-#ifdef mingw32_HOST_OS
-
 import System.Posix.Types
 import Data.Bits
 import MissingH.IO.StatCompat
@@ -110,7 +112,7 @@ getFileStatus fp =
        isdir <- doesDirectoryExist fp
        perms <- getPermissions fp
        modct <- getModificationTime fp
-       epochtime <- timelocal modct
+       let epochtime = clockTimeToEpoch modct
        return $ FileStatusCompat {deviceID = -1,
                                   fileID = -1,
                                   fileMode = if isfile then regularFileMode

-- 
haskell-testpack