git-annex/Git/FileMode.hs

{- git file modes
 -
 - Copyright 2013 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU AGPL version 3 or higher.
 -}

{-# LANGUAGE CPP #-}

module Git.FileMode where

import Utility.FileMode

symLinkMode :: FileMode
symLinkMode = 40960

{- 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 symLinkMode
sync: Fix bug that caused direct mode mappings to not be updated when merging files into the tree on Windows. 2013-09-13 17:49:28 +00:00			`{- git file modes`
			`-`
update my email address and homepage url 2015-01-21 16:50:09 +00:00			`- Copyright 2013 Joey Hess <id@joeyh.name>`
sync: Fix bug that caused direct mode mappings to not be updated when merging files into the tree on Windows. 2013-09-13 17:49:28 +00:00			`-`
update licenses from GPL to AGPL This does not change the overall license of the git-annex program, which was already AGPL due to a number of sources files being AGPL already. Legally speaking, I'm adding a new license under which these files are now available; I already released their current contents under the GPL license. Now they're dual licensed GPL and AGPL. However, I intend for all my future changes to these files to only be released under the AGPL license, and I won't be tracking the dual licensing status, so I'm simply changing the license statement to say it's AGPL. (In some cases, others wrote parts of the code of a file and released it under the GPL; but in all cases I have contributed a significant portion of the code in each file and it's that code that is getting the AGPL license; the GPL license of other contributors allows combining with AGPL code.) 2019-03-13 19:48:14 +00:00			`- Licensed under the GNU AGPL version 3 or higher.`
sync: Fix bug that caused direct mode mappings to not be updated when merging files into the tree on Windows. 2013-09-13 17:49:28 +00:00			`-}`

			`{-# LANGUAGE CPP #-}`

			`module Git.FileMode where`

			`import Utility.FileMode`

more completely solve catKey memory leak Done using a mode witness, which ensures it's fixed everywhere. Fixing catFileKey was a bear, because git cat-file does not provide a nice way to query for the mode of a file and there is no other efficient way to do it. Oh, for libgit2.. Note that I am looking at tree objects from HEAD, rather than the index. Because I cat-file cannot show a tree object for the index. So this fix is technically incomplete. The only cases where it matters are: 1. A new large file has been directly staged in git, but not committed. 2. A file that was committed to HEAD as a symlink has been staged directly in the index. This could be fixed a lot better using libgit2. 2013-09-19 20:30:37 +00:00			`symLinkMode :: FileMode`
			`symLinkMode = 40960`

sync: Fix bug that caused direct mode mappings to not be updated when merging files into the tree on Windows. 2013-09-13 17:49:28 +00:00			`{- 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`
more completely solve catKey memory leak Done using a mode witness, which ensures it's fixed everywhere. Fixing catFileKey was a bear, because git cat-file does not provide a nice way to query for the mode of a file and there is no other efficient way to do it. Oh, for libgit2.. Note that I am looking at tree objects from HEAD, rather than the index. Because I cat-file cannot show a tree object for the index. So this fix is technically incomplete. The only cases where it matters are: 1. A new large file has been directly staged in git, but not committed. 2. A file that was committed to HEAD as a symlink has been staged directly in the index. This could be fixed a lot better using libgit2. 2013-09-19 20:30:37 +00:00			`isSymLink = checkMode symLinkMode`