mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add catCommit, with commit object parser

Browse source
This commit is contained in:
Joey Hess 2016-02-25 14:59:35 -04:00
parent be2e9427ad
commit 1f91d1d0b7
Failed to extract signature
3 changed files with 77 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Git/Types.hs
View file

@ -97,3 +97,18 @@ toBlobType 0o100644 = Just FileBlob
toBlobType 0o100755 = Just ExecutableBlob
toBlobType 0o120000 = Just SymlinkBlob
toBlobType _ = Nothing
data Commit = Commit
{ commitTree :: Sha
, commitAuthorMetaData :: CommitMetaData
, commitCommitterMetaData :: CommitMetaData
, commitMessage :: String
}
deriving (Show)
data CommitMetaData = CommitMetaData
{ commitName :: Maybe String
, commitEmail :: Maybe String
, commitDate :: Maybe String -- In raw git form, "epoch -tzoffset"
}
deriving (Show)