diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-06-27 09:27:59 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-06-27 09:27:59 -0400 |
| commit | 8e8439a5191e8768edebdcf27668157b70c0ebf7 (patch) | |
| tree | b90e08855ff83a24d03f376712daeb92b932bef0 /Git/Types.hs | |
| parent | 6f45827fe07262f93f39ae420f4362bfa0246194 (diff) | |
add ls-files --unmerged support
Diffstat (limited to 'Git/Types.hs')
| -rw-r--r-- | Git/Types.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Git/Types.hs b/Git/Types.hs index 1df6e343b..e8cdbb442 100644 --- a/Git/Types.hs +++ b/Git/Types.hs @@ -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 |