From d0fa82fb721cdc85438287e29a94cb796b7bc464 Mon Sep 17 00:00:00 2001
From: Joey Hess <id@joeyh.name>
Date: Sat, 11 May 2013 15:03:00 -0500
Subject: git-annex now builds on Windows (doesn't work)

---
 Remote/Helper/Hooks.hs | 6 ++++++
 1 file changed, 6 insertions(+)
 mode change 100644 => 100755 Remote/Helper/Hooks.hs

(limited to 'Remote/Helper/Hooks.hs')

diff --git a/Remote/Helper/Hooks.hs b/Remote/Helper/Hooks.hs
old mode 100644
new mode 100755
index 1aeb6cdcd..dfc543d0a
--- a/Remote/Helper/Hooks.hs
+++ b/Remote/Helper/Hooks.hs
@@ -5,6 +5,8 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
+{-# LANGUAGE CPP #-}
+
 module Remote.Helper.Hooks (addHooks) where
 
 import qualified Data.Map as M
@@ -70,6 +72,7 @@ runHooks r starthook stophook a = do
 
 		Annex.addCleanup (remoteid ++ "-stop-command") $ runstop lck
 	runstop lck = do
+#ifndef __WINDOWS__
 		-- Drop any shared lock we have, and take an
 		-- exclusive lock, without blocking. If the lock
 		-- succeeds, we're the only process using this remote,
@@ -84,3 +87,6 @@ runHooks r starthook stophook a = do
 			Left _ -> noop
 			Right _ -> run stophook
 		liftIO $ closeFd fd
+#else
+		run stophook
+#endif
-- 
cgit v1.2.3