diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-11-11 01:52:58 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-11-11 01:52:58 -0400 |
| commit | 637b5feb45013f69f3aacbafeb796de666d3faa3 (patch) | |
| tree | 17e5506c3715be46318d15dd76ec474641faffe2 /Command/Migrate.hs | |
| parent | b327227ba596d4fc5012138d03390c3eb861b808 (diff) | |
lint
Diffstat (limited to 'Command/Migrate.hs')
| -rw-r--r-- | Command/Migrate.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Migrate.hs b/Command/Migrate.hs index 3c87f4136..860c4bd47 100644 --- a/Command/Migrate.hs +++ b/Command/Migrate.hs @@ -46,7 +46,7 @@ perform file oldkey newbackend = do -- The old backend's key is not dropped from it, because there may -- be other files still pointing at that key. src <- fromRepo $ gitAnnexLocation oldkey - tmp <- fromRepo $ gitAnnexTmpDir + tmp <- fromRepo gitAnnexTmpDir let tmpfile = tmp </> takeFileName file liftIO $ createLink src tmpfile k <- Backend.genKey tmpfile $ Just newbackend @@ -64,7 +64,7 @@ perform file oldkey newbackend = do -- associated urls, record them for -- the new key as well. urls <- getUrls oldkey - when (not $ null urls) $ + unless (null urls) $ mapM_ (setUrlPresent newkey) urls next $ Command.Add.cleanup file newkey True |