diff --git a/Remote/Glacier.hs b/Remote/Glacier.hs index 65c978bd4f..c1a53347d8 100644 --- a/Remote/Glacier.hs +++ b/Remote/Glacier.hs @@ -195,14 +195,12 @@ checkPresent r k = do , Param $ archive r k ] - untrusted = do - showLongNote $ unlines + untrusted = return $ Left $ unlines [ "Glacier's inventory says it has a copy." , "However, the inventory could be out of date, if it was recently removed." , "(Use --trust-glacier if you're sure it's still in Glacier.)" , "" ] - return $ Right False glacierAction :: Remote -> [CommandParam] -> Annex Bool glacierAction r params = runGlacier (config r) (uuid r) params diff --git a/debian/changelog b/debian/changelog index cf57b5cf3e..e36b333989 100644 --- a/debian/changelog +++ b/debian/changelog @@ -10,6 +10,8 @@ git-annex (4.20130602) UNRELEASED; urgency=low * webapp: When the user switches to display a different repository, that repository becomes the default repository to be displayed next time the webapp gets started. + * glacier: Better handling of the glacier inventory, which avoids + duplicate uploads to the same glacier repository by `git annex copy`. -- Joey Hess Mon, 10 Jun 2013 12:52:44 -0400