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:
parent
65fe2314be
commit
ab9dd6d8a0
3 changed files with 23 additions and 1 deletions
20
Git/FileMode.hs
Normal file
20
Git/FileMode.hs
Normal 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
|
Loading…
Add table
Add a link
Reference in a new issue