1 files changed, 58 insertions, 0 deletions
diff --git a/standalone/windows/haskell-patches/MissingH_1.2.0.0-0001-hack-around-strange-build-problem-in-jenkins-autobui.patch b/standalone/windows/haskell-patches/MissingH_1.2.0.0-0001-hack-around-strange-build-problem-in-jenkins-autobui.patch
new file mode 100644
index 000000000..115afd7f9
--- /dev/null
+++ b/standalone/windows/haskell-patches/MissingH_1.2.0.0-0001-hack-around-strange-build-problem-in-jenkins-autobui.patch
@@ -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
+