diff options
author | 2016-08-03 13:46:20 -0400 | |
---|---|---|
committer | 2016-08-03 13:46:20 -0400 | |
commit | 85cd2dd2a908d9cec848c9827f68f9941f3ff5b8 (patch) | |
tree | 987e62f90199de80e0e080235225e3aff74de806 /Command/AddUrl.hs | |
parent | e38ae12506c878b98779465bef167446bff506f9 (diff) |
remove TransferObserver
unused after last commit
Diffstat (limited to 'Command/AddUrl.hs')
-rw-r--r-- | Command/AddUrl.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs index 326bf782b..be29cc228 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -254,7 +254,7 @@ addUrlFileQuvi relaxed quviurl videourl file = stopUnless (doesNotExist file) $ tmp <- fromRepo $ gitAnnexTmpObjectLocation key showOutput ok <- Transfer.notifyTransfer Transfer.Download (Just file) $ - Transfer.download webUUID key (Just file) Transfer.forwardRetry Transfer.noObserver $ \p -> do + Transfer.download webUUID key (Just file) Transfer.forwardRetry $ \p -> do liftIO $ createDirectoryIfMissing True (parentDir tmp) downloadUrl key p [videourl] tmp if ok @@ -335,7 +335,7 @@ downloadWith downloader dummykey u url file = ) where runtransfer tmp = Transfer.notifyTransfer Transfer.Download (Just file) $ - Transfer.download u dummykey (Just file) Transfer.forwardRetry Transfer.noObserver $ \p -> do + Transfer.download u dummykey (Just file) Transfer.forwardRetry $ \p -> do liftIO $ createDirectoryIfMissing True (parentDir tmp) downloader tmp p |