fix ActionDropUnwanted

Now tested working
This commit is contained in:
Joey Hess 2024-09-17 11:55:57 -04:00
parent e0128b6362
commit eb5fad4e79
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 1 additions and 3 deletions

View file

@ -478,7 +478,7 @@ getSimActionComponents (ActionDropUnwanted repo Nothing) st =
verifypresent u k st' ru = do
rst <- M.lookup ru (simRepoState st')
if present u rst k
if present ru rst k
then if ru `S.member` remotes u
then Just $ if simIsSpecialRemote rst
then mkVerifiedCopy RecentlyVerifiedCopy ru

View file

@ -32,8 +32,6 @@ Planned schedule of work:
* sim: Test concurrency over actions.
* sim: Test ActionDropUnwanted Nothing
* sim: implement addtree
* sim: implement ActionDropUnwanted