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
|
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
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Add table
Reference in a new issue