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

add ls-files --unmerged support

Browse source
This commit is contained in:
Joey Hess 2012-06-27 09:27:59 -04:00
parent 6f45827fe0
commit 8e8439a519
2 changed files with 32 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Git/Types.hs
View file

@ -71,3 +71,9 @@ instance Show BlobType where
show FileBlob = "100644"
show ExecutableBlob = "100755"
show SymlinkBlob = "120000"
readBlobType :: String -> Maybe BlobType
readBlobType "100644" = Just FileBlob
readBlobType "100755" = Just ExecutableBlob
readBlobType "120000" = Just SymlinkBlob
readBlobType _ = Nothing