mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

work around strange MissingH build fail on windows, that I cannot reproduce here

Browse source
This commit is contained in:
Joey Hess 2013-05-17 13:10:41 -04:00
parent 74529501ba
commit 00aa861b39
2 changed files with 67 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

58
standalone/windows/haskell-patches/MissingH_1.2.0.0-0001-hack-around-strange-build-problem-in-jenkins-autobui.patch Normal file
View file

@ -0,0 +1,58 @@
From 93876dea5befa576c1324e25dcf2135ae1705427 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
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
@@ -44,8 +44,7 @@ Or, to avoid having to use CPP and make things even easier, just import
-}
module System.IO.WindowsCompat
-#if 1
-!(defined(mingw32_HOST_OS) || defined(mingw32_TARGET_OS) || defined(__MINGW32__))
+#if !(defined(mingw32_HOST_OS) || defined(mingw32_TARGET_OS) || defined(__MINGW32__))
where
#else
(module System.IO.StatCompat, module System.IO.WindowsCompat)
@@ -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