add catCommit, with commit object parser

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

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)