fix ActionDropUnwanted
Now tested working
This commit is contained in:
parent
e0128b6362
commit
eb5fad4e79
2 changed files with 1 additions and 3 deletions
|
@ -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
|
||||
|
|
|
@ -32,8 +32,6 @@ Planned schedule of work:
|
|||
|
||||
* sim: Test concurrency over actions.
|
||||
|
||||
* sim: Test ActionDropUnwanted Nothing
|
||||
|
||||
* sim: implement addtree
|
||||
|
||||
* sim: implement ActionDropUnwanted
|
||||
|
|
Loading…
Add table
Reference in a new issue