From e7aaa55c53fb54c6dd5a1a1aeb0955b05227676b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 16 Feb 2012 00:05:17 -0400 Subject: create parent directories as needed for addurl --file --- Command/AddUrl.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'Command/AddUrl.hs') diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs index f91d6dd55..e23f4262b 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -46,8 +46,7 @@ perform :: String -> FilePath -> CommandPerform perform url file = ifAnnexed file addurl geturl where geturl = do - whenM (liftIO $ doesFileExist file) $ - error $ "not overwriting existing " ++ file + liftIO $ createDirectoryIfMissing True (parentDir file) fast <- Annex.getState Annex.fast if fast then nodownload url file else download url file addurl (key, _backend) = do -- cgit v1.2.3