diff options
author | 2011-10-16 00:04:26 -0400 | |
---|---|---|
committer | 2011-10-16 00:04:26 -0400 | |
commit | 91366c896d9c9cb4519b451a64ed4d1e0ff52cb3 (patch) | |
tree | f9c7073002f68f1b53ba62890794474301a7253a /Command | |
parent | 52c8244219dd90102818282b8b09186f2ce93a0f (diff) |
clean Annex stuff out of Utility/
Diffstat (limited to 'Command')
-rw-r--r-- | Command/AddUrl.hs | 2 | ||||
-rw-r--r-- | Command/Map.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs index 2756af880..f32b5b86a 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -48,7 +48,7 @@ download url file = do let dummykey = Backend.URL.fromUrl url let tmp = gitAnnexTmpLocation g dummykey liftIO $ createDirectoryIfMissing True (parentDir tmp) - ok <- Url.download url tmp + ok <- liftIO $ Url.download url tmp if ok then do [(backend, _)] <- Backend.chooseBackends [file] diff --git a/Command/Map.hs b/Command/Map.hs index 18cb915e3..48cba63f9 100644 --- a/Command/Map.hs +++ b/Command/Map.hs @@ -16,7 +16,7 @@ import qualified Git import Annex.UUID import Logs.UUID import Logs.Trust -import Utility.Ssh +import Annex.Ssh import qualified Utility.Dot as Dot -- a link from the first repository to the second (its remote) |