diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-02-25 15:34:22 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-02-25 15:34:22 -0400 |
| commit | 940b980ebace955d4a33edbeee9ce0f7ac87ec33 (patch) | |
| tree | 6797f879908323ae39962d4cd97cd96fd486625c | |
| parent | 6105f92e89a1ff397131a6c9ecac267e460d5c46 (diff) | |
add fromBlobType
| -rw-r--r-- | Git/Types.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Git/Types.hs b/Git/Types.hs index e694c2072..4fa49be5c 100644 --- a/Git/Types.hs +++ b/Git/Types.hs @@ -98,6 +98,11 @@ toBlobType 0o100755 = Just ExecutableBlob toBlobType 0o120000 = Just SymlinkBlob toBlobType _ = Nothing +fromBlobType :: BlobType -> FileMode +fromBlobType FileBlob = 0o100644 +fromBlobType ExecutableBlob = 0o100755 +fromBlobType SymlinkBlob = 0o120000 + data Commit = Commit { commitTree :: Sha , commitAuthorMetaData :: CommitMetaData |