fix sameas inherited key removal
This commit is contained in:
parent
8d7dc76dff
commit
1b9c1d1737
3 changed files with 9 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue