fix reversion
3a513cfe73
caused a reversion in addurl.
The type of addSmall changed, but the void prevented the type checker
from helping notice this. Since it now returns a CommandPerform, the
cleanup action has to be run.
Sponsored-by: Dartmouth College's Datalad project
This commit is contained in:
parent
eb2acf5fd7
commit
21cfd0ea98
3 changed files with 14 additions and 1 deletions
|
@ -476,7 +476,8 @@ addWorkTree _ addunlockedmatcher u url file key mtmp = case mtmp of
|
|||
(fromRawFilePath file)
|
||||
(fromRawFilePath tmp)
|
||||
go
|
||||
else void $ Command.Add.addSmall (DryRun False) file s
|
||||
else Command.Add.addSmall (DryRun False) file s
|
||||
>>= maybe noop void
|
||||
where
|
||||
go = do
|
||||
maybeShowJSON $ JSONChunk [("key", serializeKey key)]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue