diff options
author | Joey Hess <id@joeyh.name> | 2013-05-10 16:29:59 -0500 |
---|---|---|
committer | Joey Hess <id@joeyh.name> | 2013-05-10 16:29:59 -0500 |
commit | 5d0476bf59674b39fa6bad7e4446b5c741181143 (patch) | |
tree | 67897681b96fb9e79990033822e1a645de1f96a7 /Git.hs | |
parent | 812f7d6c564e297b67850f2aa4751141a8f68e99 (diff) |
stub out POSIX stuff
Diffstat (limited to 'Git.hs')
-rwxr-xr-x[-rw-r--r--] | Git.hs | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -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 |