rename BlobType and add submodule to it
This was badly named, it's a not a blob necessarily, but anything that a tree can refer to. Also removed the Show instance which was used for serialization to git format, instead use fmtTreeItemType. This commit was supported by the NSF-funded DataLad project.
This commit is contained in:
parent
a732004616
commit
0b7f6d24d3
12 changed files with 80 additions and 69 deletions
|
@ -120,11 +120,11 @@ hashPointerFile key = hashBlob (formatPointer key)
|
|||
stagePointerFile :: FilePath -> Maybe FileMode -> Sha -> Annex ()
|
||||
stagePointerFile file mode sha =
|
||||
Annex.Queue.addUpdateIndex =<<
|
||||
inRepo (Git.UpdateIndex.stageFile sha blobtype file)
|
||||
inRepo (Git.UpdateIndex.stageFile sha treeitemtype file)
|
||||
where
|
||||
blobtype
|
||||
| maybe False isExecutable mode = ExecutableBlob
|
||||
| otherwise = FileBlob
|
||||
treeitemtype
|
||||
| maybe False isExecutable mode = TreeExecutable
|
||||
| otherwise = TreeFile
|
||||
|
||||
writePointerFile :: FilePath -> Key -> Maybe FileMode -> IO ()
|
||||
writePointerFile file k mode = do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue