diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-03-15 22:28:18 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-03-15 22:28:18 -0400 |
| commit | da504f647fdbec7aa3a3c08244520de2c00898ef (patch) | |
| tree | 1c15687033b47e1f6c915a1bdff966331d3836f4 /Backend/URL.hs | |
| parent | 27472710c73320449ce96bc409fa82e0a46be1cf (diff) | |
fromkey, and url backend download work now
Diffstat (limited to 'Backend/URL.hs')
| -rw-r--r-- | Backend/URL.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Backend/URL.hs b/Backend/URL.hs index b40ff3959..02ce3563c 100644 --- a/Backend/URL.hs +++ b/Backend/URL.hs @@ -8,12 +8,12 @@ module Backend.URL (backends) where import Control.Monad.State (liftIO) -import Data.String.Utils import Types import BackendClass import Utility import Messages +import Key backends :: [Backend Annex] backends = [backend] @@ -52,8 +52,8 @@ dummyOk _ = return True downloadUrl :: Key -> FilePath -> Annex Bool downloadUrl key file = do - showNote "downloading" + showNote $ "downloading" showProgress -- make way for curl progress bar liftIO $ boolSystem "curl" [Params "-# -o", File file, File url] where - url = join ":" $ drop 1 $ split ":" $ show key + url = keyName key |