git-annex/Git/DiffTreeItem.hs

{- git diff-tree item
 -
 - Copyright 2012 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU AGPL version 3 or higher.
 -}

module Git.DiffTreeItem (
	DiffTreeItem(..),
) where

import System.Posix.Types
import qualified Data.ByteString as S

import Git.FilePath
import Git.Types

data DiffTreeItem = DiffTreeItem
	{ srcmode :: FileMode
	, dstmode :: FileMode
	, srcsha :: Sha -- null sha if file was added
	, dstsha :: Sha -- null sha if file was deleted
	, status :: S.ByteString
	, file :: TopFilePath
	} deriving Show
split out DiffTreeItem This makes github-backup happier when it reuses this library. 2014-12-22 19:32:51 +00:00			`{- git diff-tree item`
			`-`
update my email address and homepage url 2015-01-21 16:50:09 +00:00			`- Copyright 2012 Joey Hess <id@joeyh.name>`
split out DiffTreeItem This makes github-backup happier when it reuses this library. 2014-12-22 19:32:51 +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.`
split out DiffTreeItem This makes github-backup happier when it reuses this library. 2014-12-22 19:32:51 +00:00			`-}`

			`module Git.DiffTreeItem (`
			`DiffTreeItem(..),`
			`) where`

			`import System.Posix.Types`
ByteString Ref continued Attoparsec parser for diff-tree. Changed fromRef back to producing a String, to avoid needing to convert every use of it. However, this does mean I'm going to miss some opportunities where fromRef is used and the result converted back to a ByteString. Would be worth revisiting that at some point maybe. 2020-04-07 15:54:27 +00:00			`import qualified Data.ByteString as S`
split out DiffTreeItem This makes github-backup happier when it reuses this library. 2014-12-22 19:32:51 +00:00
			`import Git.FilePath`
			`import Git.Types`

			`data DiffTreeItem = DiffTreeItem`
			`{ srcmode :: FileMode`
			`, dstmode :: FileMode`
support sha256 git repos Git will eventually switch to sha2 and there will not be one single shaSize anymore, but two (40 and 64). Changed all parsers for git plumbing output to support both sizes of shas. One potential problem this does not deal with is, if somewhere in git-annex it reads two shas from different sources, and compares them to see if they're the same sha, it would fail if they're sha1 and sha256 of the same value. I don't know if that will really be a concern. 2020-01-07 15:35:17 +00:00			`, srcsha :: Sha -- null sha if file was added`
			`, dstsha :: Sha -- null sha if file was deleted`
ByteString Ref continued Attoparsec parser for diff-tree. Changed fromRef back to producing a String, to avoid needing to convert every use of it. However, this does mean I'm going to miss some opportunities where fromRef is used and the result converted back to a ByteString. Would be worth revisiting that at some point maybe. 2020-04-07 15:54:27 +00:00			`, status :: S.ByteString`
split out DiffTreeItem This makes github-backup happier when it reuses this library. 2014-12-22 19:32:51 +00:00			`, file :: TopFilePath`
			`} deriving Show`