From 8d2f003c63e0c1db0758e06f02b999365f8413a9 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 4 Aug 2013 13:54:09 -0400
Subject: avoid more build warnings on Windows

---
 Remote/Helper/Hooks.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Remote')

diff --git a/Remote/Helper/Hooks.hs b/Remote/Helper/Hooks.hs
index 96081b024..7c2bf68ca 100644
--- a/Remote/Helper/Hooks.hs
+++ b/Remote/Helper/Hooks.hs
@@ -73,8 +73,8 @@ runHooks r starthook stophook a = do
 		run starthook
 
 		Annex.addCleanup (remoteid ++ "-stop-command") $ runstop lck
-	runstop lck = do
 #ifndef __WINDOWS__
+	runstop lck = do
 		-- 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,
@@ -90,5 +90,5 @@ runHooks r starthook stophook a = do
 			Right _ -> run stophook
 		liftIO $ closeFd fd
 #else
-		run stophook
+	runstop _lck = run stophook
 #endif
-- 
cgit v1.2.3