From 93876dea5befa576c1324e25dcf2135ae1705427 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 17 May 2013 13:04:56 -0400 Subject: [PATCH] hack around strange build problem in jenkins autobuilder src\System\IO\WindowsCompat.hs:123:41: Couldn't match expected type `System.Time.ClockTime' with actual type `time-1.4:Data.Time.Clock.UTC.UTCTime' In the first argument of `clockTimeToEpoch', namely `modct' In the expression: clockTimeToEpoch modct In an equation for `epochtime': epochtime = clockTimeToEpoch modct But it works on Windows here.. --- src/System/IO/WindowsCompat.hs | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/src/System/IO/WindowsCompat.hs b/src/System/IO/WindowsCompat.hs index 473490d..0eea21b 100644 --- a/src/System/IO/WindowsCompat.hs +++ b/src/System/IO/WindowsCompat.hs @@ -120,8 +119,10 @@ getFileStatus fp = do isfile <- doesFileExist fp isdir <- doesDirectoryExist fp perms <- getPermissions fp + {- modct <- getModificationTime fp - let epochtime = clockTimeToEpoch modct + let epochtime = clockTimeToEpoch $ modct + -} return $ FileStatusCompat {deviceID = -1, fileID = -1, fileMode = if isfile then regularFileMode @@ -131,8 +132,8 @@ getFileStatus fp = fileGroup = 0, specialDeviceID = -1, fileSize = 0, -- fixme: hFileSize? - accessTime = fromInteger epochtime, - modificationTime = fromInteger epochtime, - statusChangeTime = fromInteger epochtime + accessTime = undefined, -- fromInteger epochtime, + modificationTime = undefined, -- fromInteger epochtime, + statusChangeTime = undefined -- fromInteger epochtime } #endif -- 1.8.3.rc1