diff options
| author |  Richard Hartmann <richih@debian.org> | 2014-02-25 12:38:25 +0100 |
|---|---|---|
| committer | Richard Hartmann <richih@debian.org> | 2014-02-25 12:38:25 +0100 |
| commit | d1147087b30b67a139e51235e977be27dc69765d (patch) | |
| tree | 81898d4b8fd8ec569ddcc6150406866682fdb1ff /Command/PreCommit.hs | |
| parent | 5fea20f32fbeba57b3be8f57b2a6f11da05641db (diff) | |
| parent | 6cc6cf01d1644df543d3e264d3f9ddb44e64424b (diff) | |
Merge branch 'master' of git://git-annex.branchable.com
Diffstat (limited to 'Command/PreCommit.hs')
| -rw-r--r-- | Command/PreCommit.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Command/PreCommit.hs b/Command/PreCommit.hs index 4b90b5c2e..07d958de1 100644 --- a/Command/PreCommit.hs +++ b/Command/PreCommit.hs @@ -14,6 +14,7 @@ import qualified Command.Add import qualified Command.Fix import Annex.Direct import Annex.View +import Annex.View.ViewedFile import Logs.View import Logs.MetaData import Types.View @@ -52,12 +53,12 @@ startIndirect f = next $ do startDirect :: [String] -> CommandStart startDirect _ = next $ next $ preCommitDirect -addViewMetaData :: View -> FileView -> Key -> CommandStart +addViewMetaData :: View -> ViewedFile -> Key -> CommandStart addViewMetaData v f k = do showStart "metadata" f next $ next $ changeMetaData k $ fromView v f -removeViewMetaData :: View -> FileView -> Key -> CommandStart +removeViewMetaData :: View -> ViewedFile -> Key -> CommandStart removeViewMetaData v f k = do showStart "metadata" f next $ next $ changeMetaData k $ unsetMetaData $ fromView v f |