diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-10-13 13:24:44 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-10-13 13:24:44 -0400 |
commit | 195d478d65ba0b0e862e2b9ea28edd49012d651f (patch) | |
tree | 846d83a2cd2d9fcc24a85794c6c15af90908fa6d | |
parent | 4ef249a83870f8f4b494a9118eed3d1b83314112 (diff) |
fix various build warnings, mostly on Windows
And some when S3 is disabled
-rw-r--r-- | Git/FileMode.hs | 2 | ||||
-rw-r--r-- | Remote/Git.hs | 2 |
2 files changed, 1 insertions, 3 deletions
diff --git a/Git/FileMode.hs b/Git/FileMode.hs index c3dfe570a..b07fd302c 100644 --- a/Git/FileMode.hs +++ b/Git/FileMode.hs @@ -11,8 +11,6 @@ module Git.FileMode where import Utility.FileMode -import System.PosixCompat.Types - symLinkMode :: FileMode symLinkMode = 40960 diff --git a/Remote/Git.hs b/Remote/Git.hs index c80a0d1c6..1c2573642 100644 --- a/Remote/Git.hs +++ b/Remote/Git.hs @@ -707,5 +707,5 @@ mkCopier remotewanthardlink rsyncparams = do , return copier ) #else - return copier + return $ if remotewanthardlink then copier else copier #endif |