sync: Fix bug that caused direct mode mappings to not be updated when merging files into the tree on Windows.

This commit is contained in:
Joey Hess 2013-09-13 13:49:28 -04:00
parent 65fe2314be
commit ab9dd6d8a0
3 changed files with 23 additions and 1 deletions

20
Git/FileMode.hs Normal file
View file

@ -0,0 +1,20 @@
{- git file modes
-
- Copyright 2013 Joey Hess <joey@kitenet.net>
-
- Licensed under the GNU GPL version 3 or higher.
-}
{-# LANGUAGE CPP #-}
module Git.FileMode where
import Utility.FileMode
import System.PosixCompat.Types
{- Git uses a special file mode to indicate a symlink. This is the case
- even on Windows, so we hard code the valuse here, rather than using
- System.Posix.Files.symbolicLinkMode. -}
isSymLink :: FileMode -> Bool
isSymLink = checkMode 40960