fromkey, and url backend download work now

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