mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refactor

Browse source
This commit is contained in:
Joey Hess 2015-08-17 10:42:14 -04:00
parent 2ff22a383a
commit 1cd3b7ddf0
7 changed files with 21 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Remote/Web.hs
View file

@ -11,6 +11,7 @@ module Remote.Web (remote) where
import Common.Annex
import Types.Remote
import Remote.Helper.Messages
import qualified Git
import qualified Git.Construct
import Annex.Content
@ -112,7 +113,7 @@ checkKey key = do
checkKey' :: Key -> [URLString] -> Annex (Either String Bool)
checkKey' key us = firsthit us (Right False) $ \u -> do
let (u', downloader) = getDownloader u
showAction $ "checking " ++ u'
showChecking u'
case downloader of
QuviDownloader ->
#ifdef WITH_QUVI