diff options
Diffstat (limited to 'Logs/MetaData.hs')
| -rw-r--r-- | Logs/MetaData.hs | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/Logs/MetaData.hs b/Logs/MetaData.hs index a959743df..807b50afa 100644 --- a/Logs/MetaData.hs +++ b/Logs/MetaData.hs @@ -28,8 +28,6 @@ module Logs.MetaData ( getCurrentMetaData, getMetaData, - setMetaData, - unsetMetaData, addMetaData, addMetaData', currentMetaData, @@ -58,16 +56,6 @@ getCurrentMetaData = currentMetaData . collect <$$> getMetaData where collect = foldl' unionMetaData newMetaData . map value . S.toAscList -setMetaData :: Key -> MetaField -> String -> Annex () -setMetaData = setMetaData' True - -unsetMetaData :: Key -> MetaField -> String -> Annex () -unsetMetaData = setMetaData' False - -setMetaData' :: Bool -> Key -> MetaField -> String -> Annex () -setMetaData' isset k field s = addMetaData k $ - updateMetaData field (mkMetaValue (CurrentlySet isset) s) newMetaData - {- Adds in some metadata, which can override existing values, or unset - them, but otherwise leaves any existing metadata as-is. -} addMetaData :: Key -> MetaData -> Annex () |