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 verifypresent u k st' ru = do
rst <- M.lookup ru (simRepoState st') rst <- M.lookup ru (simRepoState st')
if present u rst k if present ru rst k
then if ru `S.member` remotes u then if ru `S.member` remotes u
then Just $ if simIsSpecialRemote rst then Just $ if simIsSpecialRemote rst
then mkVerifiedCopy RecentlyVerifiedCopy ru then mkVerifiedCopy RecentlyVerifiedCopy ru

View file

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