unify elipsis handling
And add a simple dots-based progress display, currently only used in v2 upgrade.
This commit is contained in:
parent
ec9e9343d9
commit
00153eed48
22 changed files with 76 additions and 62 deletions
|
@ -43,7 +43,7 @@ start s = do
|
|||
perform :: String -> FilePath -> CommandPerform
|
||||
perform url file = do
|
||||
g <- Annex.gitRepo
|
||||
showNote $ "downloading " ++ url
|
||||
showAction $ "downloading " ++ url ++ " "
|
||||
let dummykey = stubKey { keyName = url, keyBackendName = "URL" }
|
||||
let tmp = gitAnnexTmpLocation g dummykey
|
||||
liftIO $ createDirectoryIfMissing True (parentDir tmp)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue