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

fix prefixing

Browse source
This commit is contained in:
Joey Hess 2018-08-31 13:39:50 -04:00
parent b3d42283ad
commit 24b76cb8e0
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Types/MetaData.hs
View file

@ -308,7 +308,7 @@ fromRemoteMetaData :: RemoteMetaData -> MetaData
fromRemoteMetaData (RemoteMetaData u (MetaData m)) = MetaData $ fromRemoteMetaData (RemoteMetaData u (MetaData m)) = MetaData $
M.mapKeys addprefix m M.mapKeys addprefix m
where where
addprefix (MetaField f) = MetaField $ CI.mk $ (++ prefix) $ CI.original f addprefix (MetaField f) = MetaField $ CI.mk $ (prefix ++) $ CI.original f
prefix = remoteMetaDataPrefix u prefix = remoteMetaDataPrefix u
{- Avoid putting too many fields in the map; extremely large maps make {- Avoid putting too many fields in the map; extremely large maps make