add filename to progress bar, and display ok/failed at end
This needed plumbing an AssociatedFile through retrieveKeyFileCheap.
This commit is contained in:
parent
dc4de7faf7
commit
a2902cdaaf
21 changed files with 85 additions and 74 deletions
|
@ -171,7 +171,7 @@ testUnavailable st r k =
|
|||
Remote.retrieveKeyFile r k Nothing dest nullMeterUpdate
|
||||
, check (== Right False) "retrieveKeyFileCheap" $
|
||||
getViaTmp k $ \dest ->
|
||||
Remote.retrieveKeyFileCheap r k dest
|
||||
Remote.retrieveKeyFileCheap r k Nothing dest
|
||||
]
|
||||
where
|
||||
check checkval desc a = testCase desc $ do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue