stub out POSIX stuff

This commit is contained in:
Joey Hess 2013-05-10 16:29:59 -05:00
parent e5f1ca7b4b
commit 6c74a42cc6
17 changed files with 128 additions and 0 deletions

8
Git.hs Normal file → Executable file
View file

@ -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