fix sameas inherited key removal

This commit is contained in:
Joey Hess 2019-10-11 13:10:07 -04:00
parent 8d7dc76dff
commit 1b9c1d1737
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 9 additions and 1 deletions

View file

@ -91,4 +91,4 @@ addSameasInherited m c = case toUUID <$> M.lookup sameasUUIDField c of
removeSameasInherited :: RemoteConfig -> RemoteConfig
removeSameasInherited c = case M.lookup sameasUUIDField c of
Nothing -> c
Just _ -> M.restrictKeys c sameasInherits
Just _ -> M.withoutKeys c sameasInherits