From 5d0476bf59674b39fa6bad7e4446b5c741181143 Mon Sep 17 00:00:00 2001
From: Joey Hess <id@joeyh.name>
Date: Fri, 10 May 2013 16:29:59 -0500
Subject: stub out POSIX stuff

---
 Git.hs | 8 ++++++++
 1 file changed, 8 insertions(+)
 mode change 100644 => 100755 Git.hs

(limited to 'Git.hs')

diff --git a/Git.hs b/Git.hs
old mode 100644
new mode 100755
index 46f995e77..c7c82ee93
--- a/Git.hs
+++ b/Git.hs
@@ -8,6 +8,8 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
+{-# LANGUAGE CPP #-}
+
 module Git (
 	Repo(..),
 	Ref(..),
@@ -30,7 +32,9 @@ module Git (
 ) where
 
 import Network.URI (uriPath, uriScheme, unEscapeString)
+#if 0
 import System.Posix.Files
+#endif
 
 import Common
 import Git.Types
@@ -127,4 +131,8 @@ hookPath script repo = do
 	ifM (catchBoolIO $ isexecutable hook)
 		( return $ Just hook , return Nothing )
   where
+#if __WINDOWS__
+	isexecutable f = doesFileExist f
+#else
 	isexecutable f = isExecutable . fileMode <$> getFileStatus f
+#endif
-- 
cgit v1.2.3