From 940b980ebace955d4a33edbeee9ce0f7ac87ec33 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 25 Feb 2016 15:34:22 -0400
Subject: add fromBlobType

---
 Git/Types.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Git')

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
-- 
cgit v1.2.3