Merge branch 'v7-default'

Annex.hs

@@ -118,7 +118,7 @@ data AnnexState = AnnexState
 	, catfilehandles :: M.Map FilePath CatFileHandle
 	, hashobjecthandle :: Maybe HashObjectHandle
 	, checkattrhandle :: Maybe CheckAttrHandle
-	, checkignorehandle :: Maybe (Maybe CheckIgnoreHandle)
+	, checkignorehandle :: Maybe CheckIgnoreHandle
 	, forcebackend :: Maybe String
 	, globalnumcopies :: Maybe NumCopies
 	, forcenumcopies :: Maybe NumCopies

Annex/AdjustedBranch.hs

@@ -26,7 +26,6 @@ module Annex.AdjustedBranch (
 	propigateAdjustedCommits,
 	AdjustedClone(..),
 	checkAdjustedClone,
-	isSupported,
 	checkVersionSupported,
 	isGitVersionSupported,
 ) where
@@ -50,7 +49,6 @@ import Git.Index
 import Git.FilePath
 import qualified Git.LockFile
 import qualified Git.Version
-import Annex.Version
 import Annex.CatFile
 import Annex.Link
 import Annex.AutoMerge
@@ -572,7 +570,7 @@ diffTreeToTreeItem dti = TreeItem
 	(Git.DiffTree.dstmode dti)
 	(Git.DiffTree.dstsha dti)
 
-data AdjustedClone = InAdjustedClone | NotInAdjustedClone | NeedUpgradeForAdjustedClone
+data AdjustedClone = InAdjustedClone | NotInAdjustedClone
 
 {- Cloning a repository that has an adjusted branch checked out will
  - result in the clone having the same adjusted branch checked out -- but
@@ -611,18 +609,10 @@ checkAdjustedClone = ifM isBareRepo
 				case aps of
 					Just [p] -> setBasisBranch basis p
 					_ -> giveup $ "Unable to clean up from clone of adjusted branch; perhaps you should check out " ++ Git.Ref.describe origbranch
-			ifM versionSupportsUnlockedPointers
+			return InAdjustedClone
-				( return InAdjustedClone
-				, return NeedUpgradeForAdjustedClone
-				)
-
-isSupported :: Annex Bool
-isSupported = versionSupportsAdjustedBranch <&&> liftIO isGitVersionSupported
 
 checkVersionSupported :: Annex ()
-checkVersionSupported = do
+checkVersionSupported =
-	unlessM versionSupportsAdjustedBranch $
-		giveup "Adjusted branches are only supported in v6 or newer repositories."
 	unlessM (liftIO isGitVersionSupported) $
 		giveup "Your version of git is too old; upgrade it to 2.2.0 or newer to use adjusted branches."
 

Annex/CheckIgnore.hs

@@ -19,23 +19,19 @@ import qualified Annex
 checkIgnored :: FilePath -> Annex Bool
 checkIgnored file = go =<< checkIgnoreHandle
   where
-	go Nothing = return False
+	go h = liftIO $ Git.checkIgnored h file
-	go (Just h) = liftIO $ Git.checkIgnored h file
 
-checkIgnoreHandle :: Annex (Maybe Git.CheckIgnoreHandle)
+checkIgnoreHandle :: Annex Git.CheckIgnoreHandle
 checkIgnoreHandle = maybe startup return =<< Annex.getState Annex.checkignorehandle
   where
 	startup = do
-		v <- inRepo Git.checkIgnoreStart
+		h <- inRepo Git.checkIgnoreStart
-		when (isNothing v) $
+		Annex.changeState $ \s -> s { Annex.checkignorehandle = Just h }
-			warning "The installed version of git is too old for .gitignores to be honored by git-annex."
+		return h
-		Annex.changeState $ \s -> s { Annex.checkignorehandle = Just v }
-		return v
 
 checkIgnoreStop :: Annex ()
 checkIgnoreStop = maybe noop stop =<< Annex.getState Annex.checkignorehandle
   where
-	stop (Just h) = do
+	stop h = do
 		liftIO $ Git.checkIgnoreStop h
 		Annex.changeState $ \s -> s { Annex.checkignorehandle = Nothing }
-	stop Nothing = noop

Annex/Fixup.hs

@@ -12,7 +12,6 @@ import Git.Config
 import Types.GitConfig
 import Config.Files
 import qualified Git
-import qualified Git.BuildVersion
 import Utility.Path
 import Utility.SafeCommand
 import Utility.Directory
@@ -42,10 +41,8 @@ fixupRepo r c = do
 {- Disable git's built-in wildcard expansion, which is not wanted
  - when using it as plumbing by git-annex. -}
 disableWildcardExpansion :: Repo -> Repo
-disableWildcardExpansion r
+disableWildcardExpansion r = r
-	| Git.BuildVersion.older "1.8.1" = r
+	{ gitGlobalOpts = gitGlobalOpts r ++ [Param "--literal-pathspecs"] }
-	| otherwise = r
-		{ gitGlobalOpts = gitGlobalOpts r ++ [Param "--literal-pathspecs"] }
 
 {- Direct mode repos have core.bare=true, but are not really bare.
  - Fix up the Repo to be a non-bare repo, and arrange for git commands

Annex/Ingest.hs

@@ -31,7 +31,6 @@ import Annex.Perms
 import Annex.Link
 import Annex.MetaData
 import Annex.CurrentBranch
-import Annex.Version
 import Logs.Location
 import qualified Annex
 import qualified Annex.Queue
@@ -308,11 +307,9 @@ forceParams = ifM (Annex.getState Annex.force)
  -}
 addUnlocked :: Annex Bool
 addUnlocked =
-	(versionSupportsUnlockedPointers <&&>
+	((not . coreSymlinks <$> Annex.getGitConfig) <||>
-	 ((not . coreSymlinks <$> Annex.getGitConfig) <||>
+	 (annexAddUnlocked <$> Annex.getGitConfig) <||>
-	  (annexAddUnlocked <$> Annex.getGitConfig) <||>
+	 (maybe False isadjustedunlocked . snd <$> getCurrentBranch)
-	  (maybe False isadjustedunlocked . snd <$> getCurrentBranch)
-	 )
 	)
   where
 	isadjustedunlocked (LinkAdjustment UnlockAdjustment) = True

Annex/Init.hs

@@ -100,26 +100,20 @@ initialize' :: Maybe RepoVersion -> Annex ()
 initialize' mversion = checkCanInitialize  $ do
 	checkLockSupport
 	checkFifoSupport
-	checkCrippledFileSystem mversion
+	checkCrippledFileSystem
 	unlessM isBareRepo $ do
 		hookWrite preCommitHook
 		hookWrite postReceiveHook
 	setDifferences
 	unlessM (isJust <$> getVersion) $
-		ifM (crippledFileSystem <&&> (not <$> isBareRepo))
+		setVersion (fromMaybe defaultVersion mversion)
-			( setVersion (fromMaybe versionForCrippledFilesystem mversion)
+	configureSmudgeFilter
-			, setVersion (fromMaybe defaultVersion mversion)
+	showSideAction "scanning for unlocked files"
-			)
+	scanUnlockedFiles True
-	whenM versionSupportsUnlockedPointers $ do
+	unlessM isBareRepo $ do
-		configureSmudgeFilter
+		hookWrite postCheckoutHook
-		showSideAction "scanning for unlocked files"
+		hookWrite postMergeHook
-		scanUnlockedFiles True
-		unlessM isBareRepo $ do
-			hookWrite postCheckoutHook
-			hookWrite postMergeHook
 	AdjustedBranch.checkAdjustedClone >>= \case
-		AdjustedBranch.NeedUpgradeForAdjustedClone -> 
-			void $ upgrade True versionForAdjustedClone
 		AdjustedBranch.InAdjustedClone -> return ()
 		AdjustedBranch.NotInAdjustedClone ->
 			ifM (crippledFileSystem <&&> (not <$> isBareRepo))
@@ -147,12 +141,7 @@ uninitialize = do
  - Checks repository version and handles upgrades too.
  -}
 ensureInitialized :: Annex ()
-ensureInitialized = do
+ensureInitialized = getVersion >>= maybe needsinit checkUpgrade
-	getVersion >>= maybe needsinit checkUpgrade
-	whenM isDirect $
-		unlessM (catchBoolIO $ upgrade True versionForAdjustedBranch) $ do
-			g <- Annex.gitRepo
-			giveup $ "Upgrading direct mode repository " ++ Git.repoDescribe g ++ " failed, and direct mode is no longer supported."
   where
 	needsinit = ifM Annex.Branch.hasSibling
 		( initialize Nothing Nothing
@@ -204,15 +193,9 @@ probeCrippledFileSystem' tmp = do
 			)
 #endif
 
-checkCrippledFileSystem :: Maybe RepoVersion -> Annex ()
+checkCrippledFileSystem :: Annex ()
-checkCrippledFileSystem mversion = whenM probeCrippledFileSystem $ do
+checkCrippledFileSystem = whenM probeCrippledFileSystem $ do
 	warning "Detected a crippled filesystem."
-
-	unlessM isBareRepo $ case mversion of
-		Just ver | ver < versionForCrippledFilesystem ->
-			giveup $ "Cannot use repo version " ++ show (fromRepoVersion ver) ++ " in a crippled filesystem."
-		_ -> noop
-
 	setCrippledFileSystem True
 
 	{- Normally git disables core.symlinks itself when the

Annex/UpdateInstead.hs

@@ -9,7 +9,6 @@ module Annex.UpdateInstead where
 
 import qualified Annex
 import Annex.Common
-import Annex.Version
 import Annex.AdjustedBranch
 import Git.Branch
 import Git.ConfigTypes
@@ -21,5 +20,4 @@ needUpdateInsteadEmulation = updateinsteadset <&&> isadjusted
   where
 	updateinsteadset = (== UpdateInstead) . receiveDenyCurrentBranch
 		<$> Annex.getGitConfig
-	isadjusted = versionSupportsUnlockedPointers
+	isadjusted = (maybe False (isJust . getAdjustment) <$> inRepo Git.Branch.current)
-		<&&> (maybe False (isJust . getAdjustment) <$> inRepo Git.Branch.current)

Annex/Version.hs

@@ -17,22 +17,13 @@ import qualified Annex
 import qualified Data.Map as M
 
 defaultVersion :: RepoVersion
-defaultVersion = RepoVersion 5
+defaultVersion = RepoVersion 7
 
 latestVersion :: RepoVersion
 latestVersion = RepoVersion 7
 
 supportedVersions :: [RepoVersion]
-supportedVersions = map RepoVersion [5, 7]
+supportedVersions = map RepoVersion [7]
-
-versionForAdjustedClone :: RepoVersion
-versionForAdjustedClone = RepoVersion 7
-
-versionForAdjustedBranch :: RepoVersion
-versionForAdjustedBranch = RepoVersion 7
-
-versionForCrippledFilesystem :: RepoVersion
-versionForCrippledFilesystem = RepoVersion 7
 
 upgradableVersions :: [RepoVersion]
 #ifndef mingw32_HOST_OS
@@ -45,6 +36,7 @@ autoUpgradeableVersions :: M.Map RepoVersion RepoVersion
 autoUpgradeableVersions = M.fromList
 	[ (RepoVersion 3, RepoVersion 5)
 	, (RepoVersion 4, RepoVersion 5)
+	, (RepoVersion 5, RepoVersion 6)
 	, (RepoVersion 6, RepoVersion 7)
 	]
 
@@ -54,18 +46,6 @@ versionField = annexConfig "version"
 getVersion :: Annex (Maybe RepoVersion)
 getVersion = annexVersion <$> Annex.getGitConfig
 
-versionSupportsUnlockedPointers :: Annex Bool
-versionSupportsUnlockedPointers = go <$> getVersion
-  where
-	go (Just v) | v >= RepoVersion 6 = True
-	go _ = False
-
-versionSupportsAdjustedBranch :: Annex Bool
-versionSupportsAdjustedBranch = versionSupportsUnlockedPointers
-
-versionUsesKeysDatabase :: Annex Bool
-versionUsesKeysDatabase = versionSupportsUnlockedPointers
-
 setVersion :: RepoVersion -> Annex ()
 setVersion (RepoVersion v) = setConfig versionField (show v)
 

Annex/WorkTree.hs

@@ -10,7 +10,6 @@ module Annex.WorkTree where
 import Annex.Common
 import Annex.Link
 import Annex.CatFile
-import Annex.Version
 import Annex.Content
 import Annex.ReplaceFile
 import Annex.CurrentBranch
@@ -54,10 +53,7 @@ lookupFileNotHidden = lookupFile' catkeyfile
 lookupFile' :: (FilePath -> Annex (Maybe Key)) -> FilePath -> Annex (Maybe Key)
 lookupFile' catkeyfile file = isAnnexLink file >>= \case
 	Just key -> return (Just key)
-	Nothing -> ifM versionSupportsUnlockedPointers
+	Nothing -> catkeyfile file
-		( catkeyfile file
-		, return Nothing 
-		)
 
 {- Modifies an action to only act on files that are already annexed,
  - and passes the key on to it. -}

Assistant/MakeRepo.hs

@@ -17,8 +17,6 @@ import qualified Annex
 import Annex.UUID
 import Annex.AdjustedBranch
 import Annex.Action
-import Annex.Version
-import Upgrade
 import Types.StandardGroups
 import Logs.PreferredContent
 import qualified Annex.Branch
@@ -62,14 +60,13 @@ initRepo True primary_assistant_repo dir desc mgroup = inDir dir $ do
 			, Param "-m"
 			, Param "created repository"
 			]
-	{- Repositories directly managed by the assistant use v7 unlocked
+	{- Repositories directly managed by the assistant use 
-	 - with annex.thin set.
+	 - an adjusted unlocked branch with annex.thin set.
 	 - 
 	 - Automatic gc is disabled, as it can be slow. Insted, gc is done
 	 - once a day.
 	 -}
 	when primary_assistant_repo $ do
-		void $ upgrade True versionForAdjustedBranch
 		void $ enterAdjustedBranch (LinkAdjustment UnlockAdjustment)
 		setConfig (annexConfig "thin") (Git.Config.boolConfig True)
 		inRepo $ Git.Command.run

Assistant/Threads/Committer.hs

@@ -20,7 +20,6 @@ import Assistant.Drop
 import Types.Transfer
 import Logs.Location
 import qualified Annex.Queue
-import qualified Git.LsFiles
 import Utility.ThreadScheduler
 import qualified Utility.Lsof as Lsof
 import qualified Utility.DirWatcher as DirWatcher
@@ -32,7 +31,6 @@ import Annex.Link
 import Annex.Perms
 import Annex.CatFile
 import Annex.InodeSentinal
-import Annex.Version
 import Annex.CurrentBranch
 import qualified Annex
 import Utility.InodeCache
@@ -53,8 +51,7 @@ commitThread :: NamedThread
 commitThread = namedThread "Committer" $ do
 	havelsof <- liftIO $ inPath "lsof"
 	delayadd <- liftAnnex $
-		maybe delayaddDefault (return . Just . Seconds)
+		fmap Seconds . annexDelayAdd <$> Annex.getGitConfig
-			=<< annexDelayAdd <$> Annex.getGitConfig
 	msg <- liftAnnex Command.Sync.commitMsg
 	lockdowndir <- liftAnnex $ fromRepo gitAnnexTmpWatcherDir
 	liftAnnex $ do
@@ -239,19 +236,6 @@ commitStaged msg = do
 				Command.Sync.updateBranches =<< getCurrentBranch
 			return ok
 
-{- OSX needs a short delay after a file is added before locking it down,
- - as pasting a file seems to try to set file permissions or otherwise
- - access the file after closing it. -}
-delayaddDefault :: Annex (Maybe Seconds)
-#ifdef darwin_HOST_OS
-delayaddDefault = ifM versionSupportsUnlockedPointers
-	( return Nothing
-	, return $ Just $ Seconds 1
-	)
-#else
-delayaddDefault = return Nothing
-#endif
-
 {- If there are PendingAddChanges, or InProcessAddChanges, the files
  - have not yet actually been added to the annex, and that has to be done
  - now, before committing.
@@ -274,49 +258,22 @@ delayaddDefault = return Nothing
 handleAdds :: FilePath -> Bool -> Maybe Seconds -> [Change] -> Assistant [Change]
 handleAdds lockdowndir havelsof delayadd cs = returnWhen (null incomplete) $ do
 	let (pending, inprocess) = partition isPendingAddChange incomplete
-	unlocked <- liftAnnex versionSupportsUnlockedPointers
-	let lockingfiles = not unlocked
 	let lockdownconfig = LockDownConfig
-		{ lockingFile = lockingfiles
+		{ lockingFile = False
 		, hardlinkFileTmpDir = Just lockdowndir
 		}
-	(pending', cleanup) <- if unlocked
-		then return (pending, noop)
-		else findnew pending
 	(postponed, toadd) <- partitionEithers
-		<$> safeToAdd lockdowndir lockdownconfig havelsof delayadd pending' inprocess
+		<$> safeToAdd lockdowndir lockdownconfig havelsof delayadd pending inprocess
-	cleanup
 
 	unless (null postponed) $
 		refillChanges postponed
 
 	returnWhen (null toadd) $ do
 		added <- addaction toadd $
-			catMaybes <$>
+			catMaybes <$> addunlocked toadd
-				if not lockingfiles
+		return $ added ++ otherchanges
-					then addunlocked toadd
-					else forM toadd (add lockdownconfig)
-		if DirWatcher.eventsCoalesce || null added || unlocked
-			then return $ added ++ otherchanges
-			else do
-				r <- handleAdds lockdowndir havelsof delayadd =<< getChanges
-				return $ r ++ added ++ otherchanges
   where
 	(incomplete, otherchanges) = partition (\c -> isPendingAddChange c || isInProcessAddChange c) cs
-	
-	-- Find files that are actually new, and not unlocked annexed
-	-- files. The ls-files is run on a batch of files.
-	findnew [] = return ([], noop)
-	findnew pending@(exemplar:_) = do
-		let segments = segmentXargsUnordered $ map changeFile pending
-		rs <- liftAnnex $ forM segments $ \fs ->
-			inRepo (Git.LsFiles.notInRepo False fs)
-		let (newfiles, cleanup) = foldl'
-			(\(l1, a1) (l2, a2) -> (l1 ++ l2, a1 >> a2))
-			([], return True) rs
-		-- note: timestamp info is lost here
-		let ts = changeTime exemplar
-		return (map (PendingAddChange ts) newfiles, void $ liftIO cleanup)
 
 	returnWhen c a
 		| c = return otherchanges
@@ -328,10 +285,10 @@ handleAdds lockdowndir havelsof delayadd cs = returnWhen (null incomplete) $ do
 	  where
 	  	ks = keySource ld
 		doadd = sanitycheck ks $ do
-			(mkey, mcache) <- liftAnnex $ do
+			(mkey, _mcache) <- liftAnnex $ do
 				showStart "add" $ keyFilename ks
 				ingest nullMeterUpdate (Just $ LockedDown lockdownconfig ks) Nothing
-			maybe (failedingest change) (done change mcache $ keyFilename ks) mkey
+			maybe (failedingest change) (done change $ keyFilename ks) mkey
 	add _ _ = return Nothing
 
 	{- Avoid overhead of re-injesting a renamed unlocked file, by
@@ -363,7 +320,7 @@ handleAdds lockdowndir havelsof delayadd cs = returnWhen (null incomplete) $ do
 	fastadd change key = do
 		let source = keySource $ lockedDown change
 		liftAnnex $ finishIngestUnlocked key source
-		done change Nothing (keyFilename source) key
+		done change (keyFilename source) key
 
 	removedKeysMap :: InodeComparisonType -> [Change] -> Annex (M.Map InodeCacheKey Key)
 	removedKeysMap ct l = do
@@ -379,17 +336,10 @@ handleAdds lockdowndir havelsof delayadd cs = returnWhen (null incomplete) $ do
 		liftAnnex showEndFail
 		return Nothing
 
-	done change mcache file key = liftAnnex $ do
+	done change file key = liftAnnex $ do
 		logStatus key InfoPresent
-		ifM versionSupportsUnlockedPointers
+		mode <- liftIO $ catchMaybeIO $ fileMode <$> getFileStatus file
-			( do
+		stagePointerFile file mode =<< hashPointerFile key
-				mode <- liftIO $ catchMaybeIO $ fileMode <$> getFileStatus file
-				stagePointerFile file mode =<< hashPointerFile key
-			, do
-				link <- makeLink file key mcache
-				when DirWatcher.eventsCoalesce $
-					stageSymlink file =<< hashSymlink link
-			)
 		showEndOk
 		return $ Just $ finishedChange change key
 

Assistant/Threads/Watcher.hs

@@ -36,7 +36,6 @@ import Annex.Link
 import Annex.FileMatcher
 import Annex.Content
 import Annex.ReplaceFile
-import Annex.Version
 import Annex.InodeSentinal
 import Git.Types
 import Git.FilePath
@@ -90,11 +89,8 @@ runWatcher :: Assistant ()
 runWatcher = do
 	startup <- asIO1 startupScan
 	matcher <- liftAnnex largeFilesMatcher
-	unlocked <- liftAnnex versionSupportsUnlockedPointers
 	symlinkssupported <- liftAnnex $ coreSymlinks <$> Annex.getGitConfig
-	addhook <- hook $ if unlocked
+	addhook <- hook $ onAddUnlocked symlinkssupported matcher
-		then onAddUnlocked symlinkssupported matcher
-		else onAdd matcher
 	delhook <- hook onDel
 	addsymlinkhook <- hook onAddSymlink
 	deldirhook <- hook onDelDir
@@ -205,13 +201,6 @@ add largefilematcher file = ifM (liftAnnex $ checkFileMatcher largefilematcher f
 		madeChange file AddFileChange
 	)
 
-onAdd :: GetFileMatcher -> Handler
-onAdd matcher file filestatus
-	| maybe False isRegularFile filestatus =
-		unlessIgnored file $
-			add matcher file
-	| otherwise = noChange
-
 shouldRestage :: DaemonStatus -> Bool
 shouldRestage ds = scanComplete ds || forceRestage ds
 
@@ -356,8 +345,7 @@ onDel file _ = do
 onDel' :: FilePath -> Annex ()
 onDel' file = do
 	topfile <- inRepo (toTopFilePath file)
-	whenM versionSupportsUnlockedPointers $
+	withkey $ flip Database.Keys.removeAssociatedFile topfile
-		withkey $ flip Database.Keys.removeAssociatedFile topfile
 	Annex.Queue.addUpdateIndex =<<
 		inRepo (Git.UpdateIndex.unstageFile file)
   where

Build/Configure.hs

@@ -62,7 +62,7 @@ getGitVersion = go =<< getEnv "FORCE_GIT_VERSION"
 	go (Just s) = return $ Config "gitversion" $ StringConfig s
 	go Nothing = do
 		v <- Git.Version.installed
-		let oldestallowed = Git.Version.normalize "1.7.1.0"
+		let oldestallowed = Git.Version.normalize "2.1"
 		when (v < oldestallowed) $
 			error $ "installed git version " ++ show v ++ " is too old! (Need " ++ show oldestallowed ++ " or newer)"
 		return $ Config "gitversion" $ StringConfig $ show v

CHANGELOG

@@ -1,7 +1,11 @@
 git-annex (7.20190826) UNRELEASED; urgency=medium
 
+  * Default to v7 for new repositories.
+  * Automatically upgrade v5 repositories to v7.
   * Automatically convert direct mode repositories to v7 with adjusted
     unlocked branches and set annex.thin.
+  * Added annex.autoupgraderepository configuration that can be set to false
+    to prevent any automatic repository upgrades.
   * Refuse to upgrade direct mode repositories when git is older than 2.22,
     which fixed a memory leak that could cause an OOM during the upgrade.
   * assistant: When creating a new repository, no longer use direct
@@ -27,6 +31,7 @@ git-annex (7.20190826) UNRELEASED; urgency=medium
   * init: Catch more exceptions when testing locking.
   * init: Fix a reversion that broke initialization on systems that
     need to use pid locking.
+  * Removed support for git versions older than 2.1.
 
  -- Joey Hess <id@joeyh.name>  Sat, 24 Aug 2019 12:54:35 -0400
 

CmdLine/Seek.hs

@@ -114,38 +114,21 @@ withFilesToBeCommitted :: (FilePath -> CommandSeek) -> [WorkTreeItem] -> Command
 withFilesToBeCommitted a l = seekActions $ prepFiltered a $
 	seekHelper LsFiles.stagedNotDeleted l
 
-withFilesOldUnlocked :: (FilePath -> CommandSeek) -> [WorkTreeItem] -> CommandSeek
-withFilesOldUnlocked = withFilesOldUnlocked' LsFiles.typeChanged
-
-{- Unlocked files before v6 have changed type from a symlink to a regular file.
- -
- - Furthermore, unlocked files used to be a git-annex symlink,
- - not some other sort of symlink.
- -}
-withFilesOldUnlocked' :: ([FilePath] -> Git.Repo -> IO ([FilePath], IO Bool)) -> (FilePath -> CommandSeek) -> [WorkTreeItem] -> CommandSeek
-withFilesOldUnlocked' typechanged a l = seekActions $
-	prepFiltered a unlockedfiles
-  where
-	unlockedfiles = filterM isOldUnlocked =<< seekHelper typechanged l
-
 isOldUnlocked :: FilePath -> Annex Bool
 isOldUnlocked f = liftIO (notSymlink f) <&&> 
 	(isJust <$> catKeyFile f <||> isJust <$> catKeyFileHEAD f)
 
-withFilesOldUnlockedToBeCommitted :: (FilePath -> CommandSeek) -> [WorkTreeItem] -> CommandSeek
+{- unlocked pointer files that are staged, and whose content has not been
-withFilesOldUnlockedToBeCommitted = withFilesOldUnlocked' LsFiles.typeChangedStaged
-
-{- v6 unlocked pointer files that are staged, and whose content has not been
  - modified-}
 withUnmodifiedUnlockedPointers :: (FilePath -> CommandSeek) -> [WorkTreeItem] -> CommandSeek
 withUnmodifiedUnlockedPointers a l = seekActions $
 	prepFiltered a unlockedfiles
   where
-	unlockedfiles = filterM isV6UnmodifiedUnlocked 
+	unlockedfiles = filterM isUnmodifiedUnlocked 
 		=<< seekHelper LsFiles.typeChangedStaged l
 
-isV6UnmodifiedUnlocked :: FilePath -> Annex Bool
+isUnmodifiedUnlocked :: FilePath -> Annex Bool
-isV6UnmodifiedUnlocked f = catKeyFile f >>= \case
+isUnmodifiedUnlocked f = catKeyFile f >>= \case
 	Nothing -> return False
 	Just k -> sameInodeCache f =<< Database.Keys.getInodeCaches k
 

Command/Add.hs

@@ -16,7 +16,6 @@ import qualified Annex.Queue
 import qualified Database.Keys
 import Annex.FileMatcher
 import Annex.Link
-import Annex.Version
 import Annex.Tmp
 import Messages.Progress
 import Git.FilePath
@@ -69,10 +68,7 @@ seek o = startConcurrency commandStages $ do
 			unless (updateOnly o) $
 				go (withFilesNotInGit (not $ includeDotFiles o))
 			go withFilesMaybeModified
-			ifM versionSupportsUnlockedPointers
+			go withUnmodifiedUnlockedPointers
-				( go withUnmodifiedUnlockedPointers
-				, go withFilesOldUnlocked
-				)
 
 {- Pass file off to git-add. -}
 startSmall :: FilePath -> CommandStart
@@ -92,12 +88,8 @@ addFile file = do
 
 start :: FilePath -> CommandStart
 start file = do
-	ifM versionSupportsUnlockedPointers
+	mk <- liftIO $ isPointerFile file
-		( do
+	maybe go fixuppointer mk
-			mk <- liftIO $ isPointerFile file
-			maybe go fixuppointer mk
-		, go
-		)
   where
 	go = ifAnnexed file addpresent add
 	add = liftIO (catchMaybeIO $ getSymbolicLinkStatus file) >>= \case
@@ -109,12 +101,10 @@ start file = do
 					if isSymbolicLink s
 						then next $ addFile file
 						else perform file
-	addpresent key = ifM versionSupportsUnlockedPointers
+	addpresent key = 
-		( liftIO (catchMaybeIO $ getSymbolicLinkStatus file) >>= \case
+		liftIO (catchMaybeIO $ getSymbolicLinkStatus file) >>= \case
 			Just s | isSymbolicLink s -> fixuplink key
 			_ -> add
-		, fixuplink key
-		)
 	fixuplink key = starting "add" (ActionItemWorkTreeFile file) $ do
 		-- the annexed symlink is present but not yet added to git
 		liftIO $ removeFile file

Command/Fix.hs

@@ -12,7 +12,6 @@ module Command.Fix where
 import Command
 import Config
 import qualified Annex
-import Annex.Version
 import Annex.ReplaceFile
 import Annex.Content
 import Annex.Perms
@@ -32,12 +31,8 @@ cmd = noCommit $ withGlobalOptions [annexedMatchingOptions] $
 
 seek :: CmdParams -> CommandSeek
 seek ps = unlessM crippledFileSystem $ do 
-	fixwhat <- ifM versionSupportsUnlockedPointers
-		( return FixAll
-		, return FixSymlinks
-		)
 	withFilesInGit
-		(commandAction . (whenAnnexed $ start fixwhat))
+		(commandAction . (whenAnnexed $ start FixAll))
 		=<< workTreeItems ps
 
 data FixWhat = FixSymlinks | FixAll

Command/Lock.hs

@@ -10,7 +10,6 @@ module Command.Lock where
 import Command
 import qualified Annex.Queue
 import qualified Annex
-import Annex.Version
 import Annex.Content
 import Annex.Link
 import Annex.InodeSentinal
@@ -31,12 +30,7 @@ cmd = withGlobalOptions [jsonOptions, annexedMatchingOptions] $
 seek :: CmdParams -> CommandSeek
 seek ps = do
 	l <- workTreeItems ps
-	ifM versionSupportsUnlockedPointers
+	withFilesInGit (commandAction . (whenAnnexed startNew)) l
-		( withFilesInGit (commandAction . (whenAnnexed startNew)) l
-		, do
-			withFilesOldUnlocked (commandAction . startOld) l
-			withFilesOldUnlockedToBeCommitted (commandAction . startOld) l
-		)
 
 startNew :: FilePath -> Key -> CommandStart
 startNew file key = ifM (isJust <$> isAnnexLink file)

Command/PreCommit.hs

@@ -10,21 +10,17 @@
 module Command.PreCommit where
 
 import Command
-import qualified Command.Add
 import qualified Command.Fix
 import qualified Command.Smudge
 import Annex.Hook
 import Annex.Link
 import Annex.View
-import Annex.Version
 import Annex.View.ViewedFile
 import Annex.LockFile
 import Logs.View
 import Logs.MetaData
 import Types.View
 import Types.MetaData
-import qualified Git.Index as Git
-import qualified Git.LsFiles as Git
 
 import qualified Data.Set as S
 import qualified Data.Text as T
@@ -37,31 +33,14 @@ cmd = command "pre-commit" SectionPlumbing
 
 seek :: CmdParams -> CommandSeek
 seek ps = lockPreCommitHook $ do
-	ifM (not <$> versionSupportsUnlockedPointers <&&> liftIO Git.haveFalseIndex)
+	l <- workTreeItems ps
-		( do
+	-- fix symlinks to files being committed
-			(fs, cleanup) <- inRepo $ Git.typeChangedStaged ps
+	flip withFilesToBeCommitted l $ \f -> commandAction $
-			whenM (anyM isOldUnlocked fs) $
+		maybe stop (Command.Fix.start Command.Fix.FixSymlinks f)
-				giveup "Cannot make a partial commit with unlocked annexed files. You should `git annex add` the files you want to commit, and then run git commit."
+			=<< isAnnexLink f
-			void $ liftIO cleanup
+	-- after a merge conflict or git cherry-pick or stash, pointer
-		, do
+	-- files in the worktree won't be populated, so populate them here
-			l <- workTreeItems ps
+	Command.Smudge.updateSmudged (Restage False)
-			-- fix symlinks to files being committed
-			flip withFilesToBeCommitted l $ \f -> commandAction $
-				maybe stop (Command.Fix.start Command.Fix.FixSymlinks f)
-					=<< isAnnexLink f
-			ifM versionSupportsUnlockedPointers
-				-- after a merge conflict or git
-				-- cherry-pick or stash, pointer
-				-- files in the worktree won't
-				-- be populated, so populate them
-				-- here
-				( Command.Smudge.updateSmudged (Restage False)
-				-- inject unlocked files into the annex
-				-- (not needed when repo version uses
-				-- unlocked pointer files)
-				, withFilesOldUnlockedToBeCommitted (commandAction . startInjectUnlocked) l
-				)
-		)
 	
 	runAnnexHook preCommitAnnexHook
 
@@ -73,12 +52,6 @@ seek ps = lockPreCommitHook $ do
 			(addViewMetaData v)
 			(removeViewMetaData v)
 
-startInjectUnlocked :: FilePath -> CommandStart
-startInjectUnlocked f = startingCustomOutput (ActionItemOther Nothing) $ do
-	unlessM (callCommandAction $ Command.Add.start f) $
-		error $ "failed to add " ++ f ++ "; canceling commit"
-	next $ return True
-
 addViewMetaData :: View -> ViewedFile -> Key -> CommandStart
 addViewMetaData v f k = starting "metadata" (mkActionItem (k, f)) $
 	next $ changeMetaData k $ fromView v f

Command/Sync.hs

@@ -458,8 +458,9 @@ pushRemote o remote (Just branch, _) = stopUnless (pure (pushOption o) <&&> need
 		| remoteAnnexReadOnly gc = return False
 		| not (remoteAnnexPush gc) = return False
 		| otherwise = anyM (newer remote) [syncBranch branch, Annex.Branch.name]
-	-- Do updateInstead emulation for remotes on eg removable drives
+	-- Older remotes on crippled filesystems may not have a
-	-- formatted FAT, where the post-receive hook won't run.
+	-- post-receive hook set up, so when updateInstead emulation
+	-- is needed, run post-receive manually.
 	postpushupdate repo = case Git.repoWorkTree repo of
 		Nothing -> return True
 		Just wt -> ifM needemulation

Command/Unannex.hs

@@ -11,13 +11,8 @@ import Command
 import qualified Annex
 import Annex.Content
 import Annex.Perms
-import Annex.Version
 import qualified Git.Command
-import qualified Git.Branch
-import qualified Git.Ref
-import qualified Git.DiffTree as DiffTree
 import Utility.CopyFile
-import Command.PreCommit (lockPreCommitHook)
 import qualified Database.Keys
 import Git.FilePath
 
@@ -28,40 +23,7 @@ cmd = withGlobalOptions [annexedMatchingOptions] $
 		paramPaths (withParams seek)
 
 seek :: CmdParams -> CommandSeek
-seek ps = wrapUnannex $ 
+seek ps = (withFilesInGit $ commandAction . whenAnnexed start) =<< workTreeItems ps
-	(withFilesInGit $ commandAction . whenAnnexed start) =<< workTreeItems ps
-
-wrapUnannex :: Annex a -> Annex a
-wrapUnannex a = ifM versionSupportsUnlockedPointers
-	( a
-	{- Run with the pre-commit hook disabled, to avoid confusing
-	 - behavior if an unannexed file is added back to git as
-	 - a normal, non-annexed file and then committed.
-	 - Otherwise, the pre-commit hook would think that the file
-	 - has been unlocked and needs to be re-annexed.
-	 -
-	 - At the end, make a commit removing the unannexed files.
-	 -}
-	, ifM cleanindex
-		( lockPreCommitHook $ commit `after` a
-		, giveup "Cannot proceed with uncommitted changes staged in the index. Recommend you: git commit"
-		)
-	)
-  where
-	commit = inRepo $ Git.Branch.commitCommand Git.Branch.ManualCommit
-		[ Param "-q"
-		, Param "--allow-empty"
-		, Param "--no-verify"
-		, Param "-m", Param "content removed from git annex"
-		]
-	cleanindex = ifM (inRepo Git.Ref.headExists)
-		( do
-			(diff, reap) <- inRepo $ DiffTree.diffIndex Git.Ref.headRef
-			if null diff
-				then void (liftIO reap) >> return True
-				else void (liftIO reap) >> return False
-		, return False
-		)
 
 start :: FilePath -> Key -> CommandStart
 start file key = stopUnless (inAnnex key) $

Command/Unlock.hs

@@ -10,11 +10,8 @@ module Command.Unlock where
 import Command
 import Annex.Content
 import Annex.Perms
-import Annex.CatFile
-import Annex.Version
 import Annex.Link
 import Annex.ReplaceFile
-import Utility.CopyFile
 import Git.FilePath
 import qualified Database.Keys
 
@@ -37,15 +34,12 @@ seek ps = withFilesInGit (commandAction . whenAnnexed start) =<< workTreeItems p
 start :: FilePath -> Key -> CommandStart
 start file key = ifM (isJust <$> isAnnexLink file)
 	( starting "unlock" (mkActionItem (key, AssociatedFile (Just file))) $
-		ifM versionSupportsUnlockedPointers
+		perform file key
-			( performNew file key
-			, performOld file key
-			)
 	, stop
 	)
 
-performNew :: FilePath -> Key -> CommandPerform
+perform :: FilePath -> Key -> CommandPerform
-performNew dest key = do
+perform dest key = do
 	destmode <- liftIO $ catchMaybeIO $ fileMode <$> getFileStatus dest
 	replaceFile dest $ \tmp ->
 		ifM (inAnnex key)
@@ -57,47 +51,10 @@ performNew dest key = do
 					LinkAnnexFailed -> error "unlock failed"
 			, liftIO $ writePointerFile tmp key destmode
 			)
-	next $ cleanupNew dest key destmode
+	next $ cleanup dest key destmode
 
-cleanupNew ::  FilePath -> Key -> Maybe FileMode -> CommandCleanup
+cleanup ::  FilePath -> Key -> Maybe FileMode -> CommandCleanup
-cleanupNew dest key destmode = do
+cleanup dest key destmode = do
 	stagePointerFile dest destmode =<< hashPointerFile key
 	Database.Keys.addAssociatedFile key =<< inRepo (toTopFilePath dest)
 	return True
-
-performOld :: FilePath -> Key -> CommandPerform
-performOld file key = 
-	ifM (inAnnex key)
-		( ifM (isJust <$> catKeyFileHEAD file)
-			( performOld' file key
-			, do
-				warning "this has not yet been committed to git; cannot unlock it"
-				next $ return False
-			)
-		, do
-			warning "content not present; cannot unlock"
-			next $ return False
-		)
-
-performOld' :: FilePath -> Key -> CommandPerform
-performOld' dest key = ifM (checkDiskSpace Nothing key 0 True)
-	( do
-		src <- calcRepo $ gitAnnexLocation key
-		tmpdest <- fromRepo $ gitAnnexTmpObjectLocation key
-		liftIO $ createDirectoryIfMissing True (parentDir tmpdest)
-		showAction "copying"
-		ifM (liftIO $ copyFileExternal CopyAllMetaData src tmpdest)
-			( do
-				liftIO $ do
-					removeFile dest
-					moveFile tmpdest dest
-				thawContent dest
-				next $ return True
-			, do
-				warning "copy failed!"
-				next $ return False
-			)
-	, do
-		warning "not enough disk space to copy file"
-		next $ return False
-	)

Command/Upgrade.hs

@@ -13,9 +13,13 @@ import Annex.Version
 import Annex.Init
 
 cmd :: Command
-cmd = dontCheck repoExists $ -- because an old version may not seem to exist
+cmd = dontCheck repoExists $
-	noDaemonRunning $ -- avoid upgrading repo out from under daemon
+	-- ^ because an old version may not seem to exist
-	command "upgrade" SectionMaintenance "upgrade repository layout"
+	-- and also, this avoids automatic silent upgrades before
+	-- this command can start up.
+	noDaemonRunning $
+	-- ^ avoid upgrading repo out from under daemon
+	command "upgrade" SectionMaintenance "upgrade repository"
 		paramNothing (withParams seek)
 
 seek :: CmdParams -> CommandSeek

Database/Keys.hs

@@ -29,7 +29,6 @@ import qualified Database.Queue as H
 import Database.Init
 import Annex.Locations
 import Annex.Common hiding (delete)
-import Annex.Version (versionUsesKeysDatabase)
 import qualified Annex
 import Annex.LockFile
 import Annex.CatFile
@@ -103,10 +102,7 @@ getDbHandle = go =<< Annex.getState Annex.keysdbhandle
   where
 	go (Just h) = pure h
 	go Nothing = do
-		h <- ifM versionUsesKeysDatabase
+		h <- liftIO newDbHandle
-			( liftIO newDbHandle
-			, liftIO unavailableDbHandle
-			)
 		Annex.changeState $ \s -> s { Annex.keysdbhandle = Just h }
 		return h
 
@@ -220,7 +216,7 @@ removeInodeCaches = runWriterIO . SQL.removeInodeCaches . toIKey
  - file.
  -}
 reconcileStaged :: H.DbQueue -> Annex ()
-reconcileStaged qh = whenM versionUsesKeysDatabase $ do
+reconcileStaged qh = do
 	gitindex <- inRepo currentIndexFile
 	indexcache <- fromRepo gitAnnexKeysDbIndexCache
 	withTSDelta (liftIO . genInodeCache gitindex) >>= \case

Git/Branch.hs

@@ -15,7 +15,6 @@ import Git.Sha
 import Git.Command
 import qualified Git.Config
 import qualified Git.Ref
-import qualified Git.BuildVersion
 
 {- The currently checked out branch.
  -
@@ -125,8 +124,7 @@ data CommitMode = ManualCommit | AutomaticCommit
 {- Prevent signing automatic commits. -}
 applyCommitMode :: CommitMode -> [CommandParam] -> [CommandParam]
 applyCommitMode commitmode ps
-	| commitmode == AutomaticCommit && not (Git.BuildVersion.older "2.0.0") =
+	| commitmode == AutomaticCommit = Param "--no-gpg-sign" : ps
-		Param "--no-gpg-sign" : ps
 	| otherwise = ps
 
 {- Some versions of git commit-tree honor commit.gpgsign themselves,

Git/CheckAttr.hs

@@ -10,12 +10,11 @@ module Git.CheckAttr where
 import Common
 import Git
 import Git.Command
-import qualified Git.Version
 import qualified Utility.CoProcess as CoProcess
 
 import System.IO.Error
 
-type CheckAttrHandle = (CoProcess.CoProcessHandle, [Attr], Bool, String)
+type CheckAttrHandle = (CoProcess.CoProcessHandle, [Attr], String)
 
 type Attr = String
 
@@ -25,8 +24,7 @@ checkAttrStart :: [Attr] -> Repo -> IO CheckAttrHandle
 checkAttrStart attrs repo = do
 	currdir <- getCurrentDirectory
 	h <- gitCoProcessStart True params repo
-	oldgit <- Git.Version.older "1.7.7"
+	return (h, attrs, currdir)
-	return (h, attrs, oldgit, currdir)
   where
 	params =
 		[ Param "check-attr" 
@@ -36,12 +34,12 @@ checkAttrStart attrs repo = do
 		[ Param "--" ]
 
 checkAttrStop :: CheckAttrHandle -> IO ()
-checkAttrStop (h, _, _, _) = CoProcess.stop h
+checkAttrStop (h, _, _) = CoProcess.stop h
 
 {- Gets an attribute of a file. When the attribute is not specified,
  - returns "" -}
 checkAttr :: CheckAttrHandle -> Attr -> FilePath -> IO String
-checkAttr (h, attrs, oldgit, currdir) want file = do
+checkAttr (h, attrs, currdir) want file = do
 	pairs <- CoProcess.query h send (receive "")
 	let vals = map snd $ filter (\(attr, _) -> attr == want) pairs
 	case vals of
@@ -78,16 +76,9 @@ checkAttr (h, attrs, oldgit, currdir) want file = do
 			else Nothing -- line incomplete
 	numattrs = length attrs
 
-	{- Before git 1.7.7, git check-attr worked best with
+	{- git check-attr chokes on some absolute filenames,
-	 - absolute filenames; using them worked around some bugs
+	 - so make sure the filename is relative. -}
-	 - with relative filenames.
+	file' = relPathDirToFileAbs currdir $ absPathFrom currdir file
-	 - 
-	 - With newer git, git check-attr chokes on some absolute
-	 - filenames, and the bugs that necessitated them were fixed,
-	 - so use relative filenames. -}
-	file'
-		| oldgit = absPathFrom currdir file
-		| otherwise = relPathDirToFileAbs currdir $ absPathFrom currdir file
 	oldattrvalue attr l = end bits !! 0
 	  where
 		bits = split sep l

Git/CheckIgnore.hs

@@ -15,7 +15,6 @@ module Git.CheckIgnore (
 import Common
 import Git
 import Git.Command
-import qualified Git.Version
 import qualified Utility.CoProcess as CoProcess
 
 import System.IO.Error
@@ -29,17 +28,11 @@ type CheckIgnoreHandle = CoProcess.CoProcessHandle
  - GIT_FLUSH behavior flushing the output buffer when git check-ignore
  - is piping to us.
  -
- - The first version of git to support what we need is 1.8.4.
- - Nothing is returned if an older git is installed.
- -
  - check-ignore does not support --literal-pathspecs, so remove that
  - from the gitGlobalOpts if set.
  -}
-checkIgnoreStart :: Repo -> IO (Maybe CheckIgnoreHandle)
+checkIgnoreStart :: Repo -> IO CheckIgnoreHandle
-checkIgnoreStart repo = ifM supportedGitVersion
+checkIgnoreStart repo = gitCoProcessStart True params repo'
-	( Just <$> gitCoProcessStart True params repo'
-	, return Nothing
-	)
   where
 	params =
 		[ Param "check-ignore" 
@@ -52,11 +45,6 @@ checkIgnoreStart repo = ifM supportedGitVersion
 	pathspecs (Param "--literal-pathspecs") = True
 	pathspecs _ = False
 
-supportedGitVersion :: IO Bool
-supportedGitVersion = do
-	v <- Git.Version.installed
-	return $ v >= Git.Version.normalize "1.8.4"
-
 {- For some reason, check-ignore --batch always exits nonzero, 
  - so ignore any error. -}
 checkIgnoreStop :: CheckIgnoreHandle -> IO ()

Git/Fsck.hs

@@ -22,7 +22,6 @@ import Git
 import Git.Command
 import Git.Sha
 import Utility.Batch
-import qualified Git.Version
 
 import qualified Data.Set as S
 import Control.Concurrent.Async
@@ -73,9 +72,7 @@ instance Monoid FsckOutput where
  -}
 findBroken :: Bool -> Repo -> IO FsckResults
 findBroken batchmode r = do
-	supportsNoDangling <- (>= Git.Version.normalize "1.7.10")
+	let (command, params) = ("git", fsckParams r)
-		<$> Git.Version.installed
-	let (command, params) = ("git", fsckParams supportsNoDangling r)
 	(command', params') <- if batchmode
 		then toBatchCommand (command, params)
 		else return (command, params)
@@ -86,8 +83,8 @@ findBroken batchmode r = do
 			, std_err = CreatePipe
 			}
 	(o1, o2) <- concurrently
-		(parseFsckOutput maxobjs r supportsNoDangling (stdoutHandle p))
+		(parseFsckOutput maxobjs r (stdoutHandle p))
-		(parseFsckOutput maxobjs r supportsNoDangling (stderrHandle p))
+		(parseFsckOutput maxobjs r (stderrHandle p))
 	fsckok <- checkSuccessProcess pid
 	case mappend o1 o2 of
 		FsckOutput badobjs truncated
@@ -120,15 +117,15 @@ knownMissing (FsckFoundMissing s _) = s
 findMissing :: [Sha] -> Repo -> IO MissingObjects
 findMissing objs r = S.fromList <$> filterM (`isMissing` r) objs
 
-parseFsckOutput :: Int -> Repo -> Bool -> Handle -> IO FsckOutput
+parseFsckOutput :: Int -> Repo -> Handle -> IO FsckOutput
-parseFsckOutput maxobjs r supportsNoDangling h = do
+parseFsckOutput maxobjs r h = do
 	ls <- lines <$> hGetContents h
 	if null ls
 		then return NoFsckOutput
 		else if all ("duplicateEntries" `isInfixOf`) ls
 			then return AllDuplicateEntriesWarning
 			else do
-				let shas = findShas supportsNoDangling ls
+				let shas = findShas ls
 				let !truncated = length shas > maxobjs
 				missingobjs <- findMissing (take maxobjs shas) r
 				return $ FsckOutput missingobjs truncated
@@ -141,18 +138,14 @@ isMissing s r = either (const True) (const False) <$> tryIO dump
 		, Param (fromRef s)
 		] r
 
-findShas :: Bool -> [String] -> [Sha]
+findShas :: [String] -> [Sha]
-findShas supportsNoDangling = catMaybes . map extractSha . concat . map words . filter wanted
+findShas = catMaybes . map extractSha . concat . map words . filter wanted
   where
-	wanted l
+	wanted l = not ("dangling " `isPrefixOf` l)
-		| supportsNoDangling = True
-		| otherwise = not ("dangling " `isPrefixOf` l)
 
-fsckParams :: Bool -> Repo -> [CommandParam]
+fsckParams :: Repo -> [CommandParam]
-fsckParams supportsNoDangling = gitCommandLine $ map Param $ catMaybes
+fsckParams = gitCommandLine $ map Param
-	[ Just "fsck"
+	[ "fsck"
-	, if supportsNoDangling
+	, "--no-dangling"
-		then Just "--no-dangling"
+	, "--no-reflogs"
-		else Nothing
-	, Just "--no-reflogs"
 	]

Git/Index.hs

@@ -58,19 +58,3 @@ currentIndexFile r = fromMaybe (indexFile r) <$> getEnv indexEnv
 {- Git locks the index by creating this file. -}
 indexFileLock :: FilePath -> FilePath
 indexFileLock f = f ++ ".lock"
-
-{- When the pre-commit hook is run, and git commit has been run with
- - a file or files specified to commit, rather than committing the staged
- - index, git provides the pre-commit hook with a "false index file".
- -
- - Changes made to this index will influence the commit, but won't
- - affect the real index file.
- -
- - This detects when we're in this situation, using a heuristic, which
- - might be broken by changes to git. Any use of this should have a test
- - case to make sure it works.
- -}
-haveFalseIndex :: IO Bool
-haveFalseIndex = maybe (False) check <$> getEnv indexEnv
-  where
-	check f = "next-index" `isPrefixOf` takeFileName f

Git/Merge.hs

@@ -17,7 +17,6 @@ module Git.Merge (
 import Common
 import Git
 import Git.Command
-import qualified Git.BuildVersion
 import qualified Git.Version
 import Git.Branch (CommitMode(..))
 
@@ -33,7 +32,7 @@ merge = merge' []
 
 merge' :: [CommandParam] -> Ref -> [MergeConfig] -> CommitMode -> Repo -> IO Bool
 merge' extraparams branch mergeconfig commitmode r
-	| MergeNonInteractive `notElem` mergeconfig || Git.BuildVersion.older "1.7.7.6" =
+	| MergeNonInteractive `notElem` mergeconfig =
 		go [Param $ fromRef branch]
 	| otherwise = go [Param "--no-edit", Param $ fromRef branch]
   where

Git/Remote/Remove.hs

@@ -13,17 +13,10 @@ import Common
 import Git
 import Git.Types
 import qualified Git.Command
-import qualified Git.Version
 
 remove :: RemoteName -> Repo -> IO ()
-remove remotename r = do
+remove remotename = Git.Command.run
-	old <- Git.Version.older "1.8.0"
+	[ Param "remote"
-	Git.Command.run
+	, Param "remove"
-		[ Param "remote"
+	, Param remotename
-		-- name of this subcommand changed
+	]
-		, Param $
-			if old
-				then "rm"
-				else "remove"
-		, Param remotename
-		] r

Remote/Git.hs

@@ -37,7 +37,6 @@ import Config
 import Config.Cost
 import Config.DynamicConfig
 import Annex.Init
-import Annex.Version
 import Types.CleanupActions
 import qualified CmdLine.GitAnnexShell.Fields as Fields
 import Logs.Location
@@ -642,7 +641,7 @@ copyToRemote' repo r st@(State connpool duc _ _) key file meterupdate
 		-- This is too broad really, but recvkey normally
 		-- verifies content anyway, so avoid complicating
 		-- it with a local sendAnnex check and rollback.
-		unlocked <- versionSupportsUnlockedPointers
+		let unlocked = True
 		oh <- mkOutputHandlerQuiet
 		Ssh.rsyncHelper oh (Just p)
 			=<< Ssh.rsyncParamsRemote unlocked r Upload key object file

Test.hs

@@ -30,7 +30,6 @@ import CmdLine.GitAnnex.Options
 
 import qualified Utility.SafeCommand
 import qualified Annex
-import qualified Annex.Version
 import qualified Git.Filename
 import qualified Git.Types
 import qualified Git.Ref
@@ -151,7 +150,6 @@ tests crippledfilesystem adjustedbranchok opts =
 	testmodes = catMaybes
 		[ canadjust ("v7 adjusted unlocked branch", (testMode opts (RepoVersion 7)) { adjustedUnlockedBranch = True })
 		, unlesscrippled ("v7 unlocked", (testMode opts (RepoVersion 7)) { unlockedFiles = True })
-		, unlesscrippled ("v5", testMode opts (RepoVersion 5))
 		, unlesscrippled ("v7 locked", testMode opts (RepoVersion 7))
 		]
 	unlesscrippled v
@@ -230,7 +228,7 @@ unitTests note = testGroup ("Unit Tests " ++ note)
 	, testCase "move (ssh remote)" test_move_ssh_remote
 	, testCase "copy" test_copy
 	, testCase "lock" test_lock
-	, testCase "lock (v7 --force)" test_lock_v7_force
+	, testCase "lock --force" test_lock_force
 	, testCase "edit (no pre-commit)" test_edit
 	, testCase "edit (pre-commit)" test_edit_precommit
 	, testCase "partial commit" test_partial_commit
@@ -584,21 +582,12 @@ test_preferred_content = intmpclonerepo $ do
 test_lock :: Assertion
 test_lock = intmpclonerepo $ do
 	annexed_notpresent annexedfile
-	unlessM (annexeval Annex.Version.versionSupportsUnlockedPointers) $
-		ifM (hasUnlockedFiles <$> getTestMode)
-			( git_annex_shouldfail "lock" [annexedfile] @? "lock failed to fail with not present file"
-			, git_annex_shouldfail "unlock" [annexedfile] @? "unlock failed to fail with not present file"
-			)
-	annexed_notpresent annexedfile
 
 	-- regression test: unlock of newly added, not committed file
-	-- should fail in v5 mode. In v7 mode, this is allowed.
+	-- should not fail.
 	writecontent "newfile" "foo"
 	git_annex "add" ["newfile"] @? "add new file failed"
-	ifM (annexeval Annex.Version.versionSupportsUnlockedPointers)
+	git_annex "unlock" ["newfile"] @? "unlock failed on newly added, never committed file"
-		( git_annex "unlock" ["newfile"] @? "unlock failed on newly added, never committed file in v7 repository"
-		, git_annex_shouldfail "unlock" ["newfile"] @? "unlock failed to fail on newly added, never committed file in v5 repository"
-		)
 
 	git_annex "get" [annexedfile] @? "get of file failed"
 	annexed_present annexedfile
@@ -610,21 +599,15 @@ test_lock = intmpclonerepo $ do
 	writecontent annexedfile $ content annexedfile ++ "foo"
 	git_annex_shouldfail "lock" [annexedfile] @? "lock failed to fail without --force"
 	git_annex "lock" ["--force", annexedfile] @? "lock --force failed"
-	-- In v7 mode, the original content of the file is not always
+	-- The original content of an unlocked file is not always
 	-- preserved after modification, so re-get it.
 	git_annex "get" [annexedfile] @? "get of file failed after lock --force"
 	annexed_present_locked annexedfile
 	git_annex "unlock" [annexedfile] @? "unlock failed"		
 	unannexed annexedfile
 	changecontent annexedfile
-	ifM (annexeval Annex.Version.versionSupportsUnlockedPointers)
+	boolSystem "git" [Param "add", Param annexedfile] @? "add of modified file failed"
-		( do
+	runchecks [checkregularfile, checkwritable] annexedfile
-			boolSystem "git" [Param "add", Param annexedfile] @? "add of modified file failed"
-			runchecks [checkregularfile, checkwritable] annexedfile
-		, do
-			git_annex "add" [annexedfile] @? "add of modified file failed"
-			runchecks [checklink, checkunwritable] annexedfile
-		)
 	c <- readFile annexedfile
 	assertEqual "content of modified file" c (changedcontent annexedfile)
 	r' <- git_annex "drop" [annexedfile]
@@ -633,21 +616,20 @@ test_lock = intmpclonerepo $ do
 -- Regression test: lock --force when work tree file
 -- was modified lost the (unmodified) annex object.
 -- (Only occurred when the keys database was out of sync.)
-test_lock_v7_force :: Assertion
+test_lock_force :: Assertion
-test_lock_v7_force = intmpclonerepo $ do
+test_lock_force = intmpclonerepo $ do
 	git_annex "upgrade" [] @? "upgrade failed"
-	whenM (annexeval Annex.Version.versionSupportsUnlockedPointers) $ do
+	git_annex "get" [annexedfile] @? "get of file failed"
-		git_annex "get" [annexedfile] @? "get of file failed"
+	git_annex "unlock" [annexedfile] @? "unlock failed"
-		git_annex "unlock" [annexedfile] @? "unlock failed in v7 mode"
+	annexeval $ do
-		annexeval $ do
+		Just k <- Annex.WorkTree.lookupFile annexedfile
-			Just k <- Annex.WorkTree.lookupFile annexedfile
+		Database.Keys.removeInodeCaches k
-			Database.Keys.removeInodeCaches k
+		Database.Keys.closeDb
-			Database.Keys.closeDb
+		liftIO . nukeFile =<< Annex.fromRepo Annex.Locations.gitAnnexKeysDbIndexCache
-			liftIO . nukeFile =<< Annex.fromRepo Annex.Locations.gitAnnexKeysDbIndexCache
+	writecontent annexedfile "test_lock_force content"
-		writecontent annexedfile "test_lock_v7_force content"
+	git_annex_shouldfail "lock" [annexedfile] @? "lock of modified file failed to fail"
-		git_annex_shouldfail "lock" [annexedfile] @? "lock of modified file failed to fail in v7 mode"
+	git_annex "lock" ["--force", annexedfile] @? "lock --force of modified file failed"
-		git_annex "lock" ["--force", annexedfile] @? "lock --force of modified file failed in v7 mode"
+	annexed_present_locked annexedfile
-		annexed_present_locked annexedfile
 
 test_edit :: Assertion
 test_edit = test_edit' False
@@ -669,10 +651,7 @@ test_edit' precommit = intmpclonerepo $ do
 			@? "pre-commit failed"
 		else boolSystem "git" [Param "commit", Param "-q", Param "-m", Param "contentchanged"]
 			@? "git commit of edited file failed"
-	ifM (annexeval Annex.Version.versionSupportsUnlockedPointers)
+	runchecks [checkregularfile, checkwritable] annexedfile
-		( runchecks [checkregularfile, checkwritable] annexedfile
-		, runchecks [checklink, checkunwritable] annexedfile
-		)
 	c <- readFile annexedfile
 	assertEqual "content of modified file" c (changedcontent annexedfile)
 	git_annex_shouldfail "drop" [annexedfile] @? "drop wrongly succeeded with no known copy of modified file"
@@ -683,12 +662,8 @@ test_partial_commit = intmpclonerepo $ do
 	annexed_present annexedfile
 	git_annex "unlock" [annexedfile] @? "unlock failed"
 	changecontent annexedfile
-	ifM (annexeval Annex.Version.versionSupportsUnlockedPointers)
+	boolSystem "git" [Param "commit", Param "-q", Param "-m", Param "test", File annexedfile]
-		( boolSystem "git" [Param "commit", Param "-q", Param "-m", Param "test", File annexedfile]
+		@? "partial commit of unlocked file should be allowed"
-			@? "partial commit of unlocked file should be allowed in v7 repository"
-		, not <$> boolSystem "git" [Param "commit", Param "-q", Param "-m", Param "test", File annexedfile]
-			@? "partial commit of unlocked file not blocked by pre-commit hook"
-		)
 
 test_fix :: Assertion
 test_fix = intmpclonerepo $ unlessM (hasUnlockedFiles <$> getTestMode) $ do
@@ -1083,8 +1058,6 @@ test_conflict_resolution_adjusted_branch =
 				writecontent conflictor "conflictor2"
 				add_annex conflictor @? "add conflicter failed"
 				git_annex "sync" [] @? "sync failed in r2"
-				-- need v7 to use adjust
-				git_annex "upgrade" [] @? "upgrade failed"
 				-- We might be in an adjusted branch
 				-- already, when eg on a crippled
 				-- filesystem. So, --force it.
@@ -1348,19 +1321,19 @@ test_conflict_resolution_symlink_bit = unlessM (hasUnlockedFiles <$> getTestMode
 		all (\i -> Git.Types.toTreeItemType (Git.LsTree.mode i) == Just Git.Types.TreeSymlink) l
 			@? (what ++ " " ++ f ++ " lost symlink bit after merge: " ++ show l)
 
-{- A v7 unlocked file that conflicts with a locked file should be resolved
+{- An unlocked file that conflicts with a locked file should be resolved
  - in favor of the unlocked file, with no variant files, as long as they
  - both point to the same key. -}
 test_mixed_lock_conflict_resolution :: Assertion
 test_mixed_lock_conflict_resolution = 
 	withtmpclonerepo $ \r1 ->
 		withtmpclonerepo $ \r2 -> do
-			indir r1 $ whenM shouldtest $ do
+			indir r1 $ do
 				disconnectOrigin
 				writecontent conflictor "conflictor"
 				git_annex "add" [conflictor] @? "add conflicter failed"
 				git_annex "sync" [] @? "sync failed in r1"
-			indir r2 $ whenM shouldtest $ do
+			indir r2 $ do
 				disconnectOrigin
 				writecontent conflictor "conflictor"
 				git_annex "add" [conflictor] @? "add conflicter failed"
@@ -1372,10 +1345,9 @@ test_mixed_lock_conflict_resolution =
 			checkmerge "r1" r1
 			checkmerge "r2" r2
   where
-	shouldtest = annexeval Annex.Version.versionSupportsUnlockedPointers
 	conflictor = "conflictor"
 	variantprefix = conflictor ++ ".variant"
-	checkmerge what d = indir d $ whenM shouldtest $ do
+	checkmerge what d = indir d $ do
 		l <- getDirectoryContents "."
 		let v = filter (variantprefix `isPrefixOf`) l
 		length v == 0

Test/Framework.hs

@@ -150,7 +150,7 @@ indir dir a = do
 		Left e -> throwM e
 
 adjustedbranchsupported :: FilePath -> IO Bool
-adjustedbranchsupported repo = indir repo $ annexeval Annex.AdjustedBranch.isSupported
+adjustedbranchsupported repo = indir repo $ Annex.AdjustedBranch.isGitVersionSupported
 
 setuprepo :: FilePath -> IO FilePath
 setuprepo dir = do

Types/GitConfig.hs

@@ -103,6 +103,7 @@ data GitConfig = GitConfig
 	, annexMaxExtensionLength :: Maybe Int
 	, annexJobs :: Concurrency
 	, annexCacheCreds :: Bool
+	, annexAutoUpgradeRepository :: Bool
 	, coreSymlinks :: Bool
 	, coreSharedRepository :: SharedRepository
 	, receiveDenyCurrentBranch :: DenyCurrentBranch
@@ -182,6 +183,7 @@ extractGitConfig r = GitConfig
 	, annexJobs = fromMaybe NonConcurrent $ 
 		parseConcurrency =<< getmaybe (annex "jobs")
 	, annexCacheCreds = getbool (annex "cachecreds") True
+	, annexAutoUpgradeRepository = getbool (annex "autoupgraderepository") True
 	, coreSymlinks = getbool "core.symlinks" True
 	, coreSharedRepository = getSharedRepository r
 	, receiveDenyCurrentBranch = getDenyCurrentBranch r

Upgrade.hs

@@ -1,6 +1,6 @@
 {- git-annex upgrade support
  -
- - Copyright 2010, 2013 Joey Hess <id@joeyh.name>
+ - Copyright 2010-2019 Joey Hess <id@joeyh.name>
  -
  - Licensed under the GNU AGPL version 3 or higher.
  -}
@@ -10,6 +10,8 @@
 module Upgrade where
 
 import Annex.Common
+import qualified Annex
+import qualified Git
 import Annex.Version
 import Types.RepoVersion
 #ifndef mingw32_HOST_OS
@@ -36,14 +38,23 @@ needsUpgrade v
 				err "Upgrade this repository: git-annex upgrade"
 			| otherwise ->
 				err "Upgrade git-annex."
-		Just newv -> ifM (upgrade True newv)
+		Just newv -> ifM (annexAutoUpgradeRepository <$> Annex.getGitConfig)
-			( ok
+			( tryNonAsync (upgrade True newv) >>= \case
-			, err "Automatic upgrade failed!"
+				Right True -> ok
+				Right False -> err "Automatic upgrade failed!"
+				Left ex -> err $ "Automatic upgrade exception! " ++ show ex
+			, err "Automatic upgrade is disabled by annex.autoupgraderepository configuration. To upgrade this repository: git-annex upgrade"
 			)
   where
-	err msg = return $ Just $ "Repository version " ++
+	err msg = do
-		show (fromRepoVersion v) ++
+		g <- Annex.gitRepo
-		" is not supported. " ++ msg
+		p <- liftIO $ absPath $ Git.repoPath g
+		return $ Just $ unwords
+			[ "Repository", p
+			, "is at unsupported version"
+			, show (fromRepoVersion v) ++ "."
+			, msg
+			]
 	ok = return Nothing
 
 upgrade :: Bool -> RepoVersion -> Annex Bool
@@ -74,3 +85,4 @@ upgrade automatic destversion = do
 	up (RepoVersion 5) = Upgrade.V5.upgrade automatic
 	up (RepoVersion 6) = Upgrade.V6.upgrade automatic
 	up _ = return True
+

Utility/CopyFile.hs

@@ -35,7 +35,8 @@ copyMetaDataParams meta = map snd $ filter fst
 	allmeta = meta == CopyAllMetaData
 
 {- The cp command is used, because I hate reinventing the wheel,
- - and because this allows easy access to features like cp --reflink. -}
+ - and because this allows easy access to features like cp --reflink
+ - and preserving metadata. -}
 copyFileExternal :: CopyMetaData -> FilePath -> FilePath -> IO Bool
 copyFileExternal meta src dest = do
 	-- Delete any existing dest file because an unwritable file

debian/control

@@ -81,7 +81,7 @@ Build-Depends:
 	lsof [linux-any],
 	ikiwiki,
 	libimage-magick-perl,
-	git (>= 1:1.8.1),
+	git (>= 1:2.1),
 	rsync,
 	curl,
 	openssh-client,

doc/bugs/Hard_links_not_synced_in_direct_mode.mdwn

@@ -126,3 +126,5 @@ Codename:	precise
 
 
 > [[!taglink confirmed]] (but may be out of scope for git-annex) --[[Joey]] 
+
+[[!meta title="assistant does not notice all changes to hard linked files"]]

doc/bugs/Hard_links_not_synced_in_direct_mode/comment_6_12379a8e89ce8505123f5b24f3dbbaca._comment

@@ -0,0 +1,8 @@
+[[!comment format=mdwn
+ username="joey"
+ subject="""comment 6"""
+ date="2019-09-11T17:24:38Z"
+ content="""
+This bug is not specific to direct mode; in v7 adjusted unlocked branch
+the assistant behaves the same as it did in my last comment above.
+"""]]

doc/bugs/__34__Adding_4923_files__34___is_really_slow.mdwn

@@ -101,3 +101,7 @@ add music/Pop/Various/Like, Omigod! The 80s Pop Culture Box (totally)/._4-08 Tal
 
 [[!tag confirmed]]
 [[!meta tag=deprecateddirectmode]]
+
+> direct mode has been removed from git-annex, and its replacement, v7
+> unlocked files, uses sqlite and should not suffer from a slowdown when
+> many work tree files have the same content. So [[done]] --[[Joey]]

doc/bugs/crippled_filesystem_direct_mode_sync_loop.mdwn

@@ -72,3 +72,5 @@ git log | grep refs/heads/synced/master | wc
 ### Have you had any luck using git-annex before? (Sometimes we get tired of reading bug reports all day and a lil' positive end note does wonders)
 
 I'm new to git-annex and immediately astonished by its unique strength. I fit the Archivist use case, and this could be the solution I wanted for so long. I'm planning to deploy it on 2 Windows boxes and several USB disks, all of them on NTFS. I learnt the idea that v6 repo is not yet good for Win/NTFS (double disk space), so I guess direct mode is the way to go? I have already got some test repos running and practicing, indeed this sync loop problem is the only remaining case I'm not confident with. Is it a bug or some safety measure feature? Am I good to go? Thanks and oh, Merry X'mas!
+
+> [[done]] --[[Joey]]

doc/bugs/crippled_filesystem_direct_mode_sync_loop/comment_2_81050b1206f47fa275627cc22b144086._comment

@@ -0,0 +1,15 @@
+[[!comment format=mdwn
+ username="joey"
+ subject="""comment 2"""
+ date="2019-09-11T17:30:11Z"
+ content="""
+I have also seen sync loops in direct mode repos not on NTFS.
+
+git-annex has not supported direct mode on NTFS since earlier this year,
+and now direct mode support has been removed entirely, replaced with v7
+adjusted unlocked branches. I tried replicating this bug on NTFS using
+those, and the syncs quieted down immediately after changes stopped being
+made.
+
+So, closing this bug.
+"""]]

doc/bugs/direct_command_leaves_repository_inconsistent_if_interrupted.mdwn

@@ -45,3 +45,5 @@ Similar issues and discussions:
 [[!meta title="git annex lock --force deletes only copy of content after interrupted switch to direct mode"]
 
 [[!meta tag=deprecateddirectmode]]
+
+> direct mode has been removed from git-annex, so [[done]] --[[Joey]]

doc/bugs/direct_mode_fails__44___left_in_an_inconsistent_state.mdwn

@@ -59,3 +59,6 @@ git-annex: direct: 1 failed
 
 [[!tag moreinfo]]
 [[!meta tag=deprecateddirectmode]]
+
+> direct mode has been removed from git-annex, so closing this old bug
+> [[done]] --[[Joey]]

doc/bugs/direct_mode_merge_interrupt.mdwn

@@ -54,3 +54,5 @@ merge. (I assume this is how `git merge` normally works.) --[[Joey]]
 > quickly.. --[[Joey]]
 
 [[!meta tag=deprecateddirectmode]]
+
+> direct mode has been removed. [[done]] --[[Joey]]

doc/bugs/direct_mode_should_refuse_to_merge_with_illegal_filenames.mdwn

@@ -36,3 +36,5 @@ Alternatively, git-annex could learn/probe the full set of characters not allowe
 
 [[!tag confirmed]]
 [[!meta tag=deprecateddirectmode]]
+
+> direct mode has been removed. [[done]] --[[Joey]]

doc/bugs/git_annex_status_fails_with_submodule_in_direct_mode.mdwn

@@ -55,3 +55,5 @@ operating system: linux x86_64
 ### Have you had any luck using git-annex before? (Sometimes we get tired of reading bug reports all day and a lil' positive end note does wonders)
 
 Yes! I think it's a great piece of software!
+
+> direct mode has been removed from git-annex, so [[done]] --[[Joey]]

doc/bugs/git_annex_sync_in_direct_mode_does_not_honor_skip-worktree.mdwn

@@ -36,3 +36,5 @@ I wonder if this would have side effects, or if there are other places in the co
 
 [[!tag confirmed]]
 [[!meta tag=deprecateddirectmode]]
+
+> direct mode has been removed from git-annex, so [[done]] --[[Joey]]

doc/git-annex-add.mdwn

@@ -23,8 +23,7 @@ Large files are added to the annex in locked form, which prevents further
 modification of their content unless unlocked by [[git-annex-unlock]](1).
 (This is not the case however when a repository is in a filesystem not
 supporting symlinks.)
-To add a file to the annex in unlocked form, `git add` can be used instead 
+To add a file to the annex in unlocked form, `git add` can be used instead.
-(that only works in repository v7 or higher).
 
 This command can also be used to add symbolic links, both symlinks to
 annexed content, and other symlinks.

doc/git-annex-adjust.mdwn

@@ -34,8 +34,6 @@ while inside the adjusted branch will update the adjusted branch
 as necessary (eg for `--hide-missing`), and will also propagate commits
 back to the original branch.
 
-This command can only be used in a v7 git-annex repository.
-
 # OPTIONS
 
 * `--unlock`

doc/git-annex-post-receive.mdwn

@@ -13,7 +13,7 @@ automatically creates a post-receive hook using this.
 
 When a repository is configured with receive.denyCurrentBranch=updateInstead,
 pushes to the repository update its work tree. However, that does not work
-for repositories that use have an adjusted branch checked
+for repositories that have an adjusted branch checked
 out. The hook updates the work tree when run in such a repository,
 the same as running `git-annex merge` would.
 

doc/git-annex-pre-commit.mdwn

@@ -17,9 +17,6 @@ point to annexed content.
 When in a view, updates metadata to reflect changes
 made to files in the view.
 
-When in a repository that has not been upgraded to v7, 
-also handles injecting changes to unlocked files into the annex. 
-
 # SEE ALSO
 
 [[git-annex]](1)

doc/git-annex-unlock.mdwn

@@ -14,21 +14,21 @@ symlink for each specified file with the file's content.
 You can then modify it and `git annex add` (or `git commit`) to save your
 changes.
 
-In v5 repositories, unlocking a file is local
+Unlocking a file changes how it is stored in the git repository (from a
-to the repository, and is temporary. In v7 repositories, unlocking a file
+symlink to a pointer file), so this command will make a change that you
-changes how it is stored in the git repository (from a symlink to a pointer
+can commit.
-file), so you can commit it like any other change. Also in v7, you
-can use `git add` to add a file to the annex in unlocked form. This allows
-workflows where a file starts out unlocked, is modified as necessary, and
-is locked once it reaches its final version.
 
-Normally, unlocking a file requires a copy to be made of its content,
+If you use `git add` to add a file, it will be added in unlocked form from
-so that its original content is preserved, while the copy can be modified.
+the beginning. This allows workflows where a file starts out unlocked, is
-To use less space, annex.thin can be set to true; this makes a hard link
+modified as necessary, and is locked once it reaches its final version.
-to the content be made instead of a copy. (Only when supported by the file
+
-system, and only in v7 and higher.) While this can save considerable
+Normally, unlocking a file requires a copy to be made of its content, so
-disk space, any modification made to a file will cause the old version of the
+that its original content is preserved, while the copy can be modified. To
-file to be lost from the local repository. So, enable annex.thin with care.
+use less space, annex.thin can be set to true; this makes a hard link to
+the content be made instead of a copy. (Only when supported by the file
+system.) While this can save considerable disk space, any modification made
+to a file will cause the old version of the file to be lost from the local
+repository. So, enable annex.thin with care.
 
 # OPTIONS
 

doc/git-annex-upgrade.mdwn

@@ -1,6 +1,6 @@
 # NAME
 
-git-annex upgrade - upgrade repository layout
+git-annex upgrade - upgrade repository
 
 # SYNOPSIS
 
@@ -8,13 +8,16 @@ git annex upgrade
 
 # DESCRIPTION
 
-Upgrades the repository to current layout.
+Upgrades the repository.
 
 Each git-annex repository has an annex.version in its git configuration,
-that indicates the repository version. If git-annex changes to a new
+that indicates the repository version. When an old repository version
-layout, you must upgrade the repository before git-annex can be used in it.
+becomes deprecated, git-annex will automatically upgrade it
+(unless annex.autoupgraderepository is set to false). To manually upgrade,
+you can use this command.
 
-To see version information, run `git annex version`. 
+Sometimes there's a newer repository version that is not the default yet,
+and then you can use this command to upgrade to it.
 
 Currently, git-annex supports upgrades all the way back to version 0, which
 was only used by its author. It's expected that git-annex will always

doc/git-annex.mdwn

@@ -383,7 +383,7 @@ subdirectories).
 
 * `upgrade`
 
-  Upgrades the repository to current layout.
+  Upgrades the repository.
   
   See [[git-annex-upgrade]](1) for details.
 
@@ -836,10 +836,9 @@ may not be explicitly listed on their individual man pages.
 
   Overrides git configuration settings. May be specified multiple times.
 
-# CONFIGURATION VIA .git/config
+# CONFIGURATION
 
 Like other git commands, git-annex is configured via `.git/config`.
-Here are all the supported configuration settings.
 
 * `annex.uuid`
 
@@ -908,7 +907,7 @@ Here are all the supported configuration settings.
 
   Set to true to make commands like `git-annex add` that add files to the
   repository add them in unlocked form. The default is to add files in
-  locked form. This only has effect in v7 repositories.
+  locked form.
 
   When a repository has core.symlinks set to false, it implicitly
   sets annex.addunlocked to true.
@@ -1044,55 +1043,6 @@ Here are all the supported configuration settings.
   And when multiple files in the work tree have the same content, only
   one of them gets hard linked to the annex.
 
-* `annex.delayadd`
-
-  Makes the watch and assistant commands delay for the specified number of
-  seconds before adding a newly created file to the annex. Normally this
-  is not needed, because they already wait for all writers of the file
-  to close it. On Mac OSX, this defaults to
-  1 second, to work around a bad interaction with software there.
-
-* `annex.expireunused`
-
-  Controls what the assistant does about unused file contents
-  that are stored in the repository.
-
-  The default is `false`, which causes
-  all old and unused file contents to be retained, unless the assistant
-  is able to move them to some other repository (such as a backup repository).
-
-  Can be set to a time specification, like "7d" or "1m", and then
-  file contents that have been known to be unused for a week or a
-  month will be deleted.
-
-* `annex.fscknudge`
-
-  When set to false, prevents the webapp from reminding you when using
-  repositories that lack consistency checks.
-
-* `annex.autoupgrade`
-
-  When set to ask (the default), the webapp will check for new versions
-  and prompt if they should be upgraded to. When set to true, automatically
-  upgrades without prompting (on some supported platforms). When set to
-  false, disables any upgrade checking.
-
-  Note that upgrade checking is only done when git-annex is installed
-  from one of the prebuilt images from its website. This does not
-  bypass e.g., a Linux distribution's own upgrade handling code.
-
-  This setting also controls whether to restart the git-annex assistant
-  when the git-annex binary is detected to have changed. That is useful
-  no matter how you installed git-annex.
-
-* `annex.autocommit`
-
-  Set to false to prevent the git-annex assistant and git-annex sync
-  from automatically committing changes to files in the repository.
-
-  To configure the behavior in all clones of the repository,
-  this can be set in [[git-annex-config]].
-
 * `annex.resolvemerge`
 
   Set to false to prevent merge conflicts in the checked out branch
@@ -1110,26 +1060,25 @@ Here are all the supported configuration settings.
   To configure the behavior in all clones of the repository,
   this can be set in [[git-annex-config]].
 
-* `annex.startupscan`
-
-  Set to false to prevent the git-annex assistant from scanning the
-  repository for new and changed files on startup. This will prevent it
-  from noticing changes that were made while it was not running, but can be
-  a useful performance tweak for a large repository.
-
-* `annex.listen`
-
-  Configures which address the webapp listens on. The default is localhost.
-  Can be either an IP address, or a hostname that resolves to the desired
-  address.
-
 * `annex.debug`
 
   Set to true to enable debug logging by default.
 
 * `annex.version`
 
-  Automatically maintained, and used to automate upgrades between versions.
+  The current version of the git-annex repository. This is
+  maintained by git-annex and should never be manually changed.
+
+* `annex.autoupgraderepository`
+
+  When an old git-annex repository version has become deprecated,
+  git-annex will normally automatically upgrade the repository to
+  the new version.
+
+  If this is set to false, git-annex won't automatically upgrade the
+  repository. Instead it will exit with an error message. You can run
+  `git annex upgrade` yourself when you are ready to upgrade the
+  repository.
 
 * `annex.crippledfilesystem`
 
@@ -1173,6 +1122,27 @@ Here are all the supported configuration settings.
   be extracted and decrypted each time git-annex needs to access the
   remote.
 
+* `annex.secure-erase-command`
+
+  This can be set to a command that should be run whenever git-annex
+  removes the content of a file from the repository.
+
+  In the command line, %file is replaced with the file that should be
+  erased.
+
+  For example, to use the wipe command, set it to `wipe -f %file`.
+
+* `annex.tune.objecthash1`, `annex.tune.objecthashlower`, `annex.tune.branchhash1`
+
+  These can be passed to `git annex init` to tune the repository.
+  They cannot be safely changed in a running repository and should never be
+  set in global git configuration.
+  For details, see <https://git-annex.branchable.com/tuning/>.
+
+# CONFIGURATION OF REMOTES
+
+Remotes are configured using these settings in `.git/config`.
+
 * `remote.<name>.annex-cost`
 
   When determining which repository to
@@ -1408,6 +1378,91 @@ Here are all the supported configuration settings.
   Default options to use if a remote does not have more specific options
   as described above.
 
+* `remote.<name>.annex-rsyncurl`
+
+  Used by rsync special remotes, this configures
+  the location of the rsync repository to use. Normally this is automatically
+  set up by `git annex initremote`, but you can change it if needed.
+
+* `remote.<name>.annex-buprepo`
+
+  Used by bup special remotes, this configures
+  the location of the bup repository to use. Normally this is automatically
+  set up by `git annex initremote`, but you can change it if needed.
+
+* `remote.<name>.annex-ddarrepo`
+
+  Used by ddar special remotes, this configures
+  the location of the ddar repository to use. Normally this is automatically
+  set up by `git annex initremote`, but you can change it if needed.
+
+* `remote.<name>.annex-directory`
+
+  Used by directory special remotes, this configures
+  the location of the directory where annexed files are stored for this
+  remote. Normally this is automatically set up by `git annex initremote`,
+  but you can change it if needed.
+
+* `remote.<name>.annex-adb`
+
+  Used to identify remotes on Android devices accessed via adb.
+  Normally this is automatically set up by `git annex initremote`.
+
+* `remote.<name>.annex-androiddirectory`
+
+  Used by adb special remotes, this is the directory on the Android
+  device where files are stored for this remote. Normally this is
+  automatically set up by `git annex initremote`, but you can change
+  it if needed.
+
+* `remote.<name>.annex-androidserial`
+
+  Used by adb special remotes, this is the serial number of the Android
+  device used by the remote. Normally this is automatically set up by
+  `git annex initremote`, but you can change it if needed, eg when
+  upgrading to a new Android device.
+
+* `remote.<name>.annex-s3`
+
+  Used to identify Amazon S3 special remotes.
+  Normally this is automatically set up by `git annex initremote`.
+
+* `remote.<name>.annex-glacier`
+
+  Used to identify Amazon Glacier special remotes.
+  Normally this is automatically set up by `git annex initremote`.
+
+* `remote.<name>.annex-webdav`
+
+  Used to identify webdav special remotes.
+  Normally this is automatically set up by `git annex initremote`.
+
+* `remote.<name>.annex-tahoe`
+
+  Used to identify tahoe special remotes.
+  Points to the configuration directory for tahoe.
+
+* `remote.<name>.annex-gcrypt`
+
+  Used to identify gcrypt special remotes.
+  Normally this is automatically set up by `git annex initremote`.
+
+  It is set to "true" if this is a gcrypt remote.
+  If the gcrypt remote is accessible over ssh and has git-annex-shell
+  available to manage it, it's set to "shell".
+
+* `remote.<name>.annex-git-lfs`
+
+  Used to identify git-lfs special remotes.
+  Normally this is automatically set up by `git annex initremote`.
+
+  It is set to "true" if this is a git-lfs remote.
+
+* `remote.<name>.annex-hooktype`, `remote.<name>.annex-externaltype`
+
+  Used by hook special remotes and external special remotes to record
+  the type of the remote.
+
 * `annex.web-options`
 
   Options to pass to curl when git-annex uses it to download urls
@@ -1523,111 +1578,72 @@ Here are all the supported configuration settings.
   It would be a good idea to check that it downloaded the file you expected,
   too.
 
-* `remote.name.annex-security-allow-unverified-downloads`
+* `remote.<name>.annex-security-allow-unverified-downloads`
 
   Per-remote configuration of annex.security.allow-unverified-downloads.
 
-* `annex.secure-erase-command`
+# CONFIGURATION OF ASSISTANT
 
-  This can be set to a command that should be run whenever git-annex
+* `annex.delayadd`
-  removes the content of a file from the repository.
 
-  In the command line, %file is replaced with the file that should be
+  Makes the watch and assistant commands delay for the specified number of
-  erased.
+  seconds before adding a newly created file to the annex. Normally this
+  is not needed, because they already wait for all writers of the file
+  to close it.
 
-  For example, to use the wipe command, set it to `wipe -f %file`.
+* `annex.expireunused`
 
-* `remote.<name>.annex-rsyncurl`
+  Controls what the assistant does about unused file contents
+  that are stored in the repository.
 
-  Used by rsync special remotes, this configures
+  The default is `false`, which causes
-  the location of the rsync repository to use. Normally this is automatically
+  all old and unused file contents to be retained, unless the assistant
-  set up by `git annex initremote`, but you can change it if needed.
+  is able to move them to some other repository (such as a backup repository).
 
-* `remote.<name>.annex-buprepo`
+  Can be set to a time specification, like "7d" or "1m", and then
+  file contents that have been known to be unused for a week or a
+  month will be deleted.
 
-  Used by bup special remotes, this configures
+* `annex.fscknudge`
-  the location of the bup repository to use. Normally this is automatically
-  set up by `git annex initremote`, but you can change it if needed.
 
-* `remote.<name>.annex-ddarrepo`
+  When set to false, prevents the webapp from reminding you when using
+  repositories that lack consistency checks.
 
-  Used by ddar special remotes, this configures
+* `annex.autoupgrade`
-  the location of the ddar repository to use. Normally this is automatically
-  set up by `git annex initremote`, but you can change it if needed.
 
-* `remote.<name>.annex-directory`
+  When set to ask (the default), the webapp will check for new versions
+  and prompt if they should be upgraded to. When set to true, automatically
+  upgrades without prompting (on some supported platforms). When set to
+  false, disables any upgrade checking.
 
-  Used by directory special remotes, this configures
+  Note that upgrade checking is only done when git-annex is installed
-  the location of the directory where annexed files are stored for this
+  from one of the prebuilt images from its website. This does not
-  remote. Normally this is automatically set up by `git annex initremote`,
+  bypass e.g., a Linux distribution's own upgrade handling code.
-  but you can change it if needed.
 
-* `remote.<name>.annex-adb`
+  This setting also controls whether to restart the git-annex assistant
+  when the git-annex binary is detected to have changed. That is useful
+  no matter how you installed git-annex.
 
-  Used to identify remotes on Android devices accessed via adb.
+* `annex.autocommit`
-  Normally this is automatically set up by `git annex initremote`.
 
-* `remote.<name>.annex-androiddirectory`
+  Set to false to prevent the git-annex assistant and git-annex sync
+  from automatically committing changes to files in the repository.
 
-  Used by adb special remotes, this is the directory on the Android
+  To configure the behavior in all clones of the repository,
-  device where files are stored for this remote. Normally this is
+  this can be set in [[git-annex-config]].
-  automatically set up by `git annex initremote`, but you can change
-  it if needed.
 
-* `remote.<name>.annex-androidserial`
+* `annex.startupscan`
 
-  Used by adb special remotes, this is the serial number of the Android
+  Set to false to prevent the git-annex assistant from scanning the
-  device used by the remote. Normally this is automatically set up by
+  repository for new and changed files on startup. This will prevent it
-  `git annex initremote`, but you can change it if needed, eg when
+  from noticing changes that were made while it was not running, but can be
-  upgrading to a new Android device.
+  a useful performance tweak for a large repository.
 
-* `remote.<name>.annex-s3`
+* `annex.listen`
 
-  Used to identify Amazon S3 special remotes.
+  Configures which address the webapp listens on. The default is localhost.
-  Normally this is automatically set up by `git annex initremote`.
+  Can be either an IP address, or a hostname that resolves to the desired
-
+  address.
-* `remote.<name>.annex-glacier`
-
-  Used to identify Amazon Glacier special remotes.
-  Normally this is automatically set up by `git annex initremote`.
-
-* `remote.<name>.annex-webdav`
-
-  Used to identify webdav special remotes.
-  Normally this is automatically set up by `git annex initremote`.
-
-* `remote.<name>.annex-tahoe`
-
-  Used to identify tahoe special remotes.
-  Points to the configuration directory for tahoe.
-
-* `remote.<name>.annex-gcrypt`
-
-  Used to identify gcrypt special remotes.
-  Normally this is automatically set up by `git annex initremote`.
-
-  It is set to "true" if this is a gcrypt remote.
-  If the gcrypt remote is accessible over ssh and has git-annex-shell
-  available to manage it, it's set to "shell".
-
-* `remote.<name>.annex-git-lfs`
-
-  Used to identify git-lfs special remotes.
-  Normally this is automatically set up by `git annex initremote`.
-
-  It is set to "true" if this is a git-lfs remote.
-
-* `remote.<name>.annex-hooktype`, `remote.<name>.annex-externaltype`
-
-  Used by hook special remotes and external special remotes to record
-  the type of the remote.
-
-* `annex.tune.objecthash1`, `annex.tune.objecthashlower`, `annex.tune.branchhash1`
-
-  These can be passed to `git annex init` to tune the repository.
-  They cannot be safely changed in a running repository and should never be
-  set in global git configuration.
-  For details, see <https://git-annex.branchable.com/tuning/>.
 
 # CONFIGURATION VIA .gitattributes
 

doc/install.mdwn

@@ -15,7 +15,7 @@ detailed instructions             | quick install
   [[Gentoo]]            | `emerge git-annex`
   [[Guix]]              | `guix package -i git-annex`
   [[Void]]              | `xbps-install git-annex`
-  [[ScientificLinux5]]  |
+  [[ScientificLinux]]   |
   [[openSUSE]]          | `zypper in git-annex`
   [[Docker]]            | 
   [[conda]]             | `conda install -c conda-forge git-annex`

doc/install/ScientificLinux.mdwn

@@ -0,0 +1,5 @@
+Install the [EPEL](https://fedoraproject.org/wiki/EPEL)
+repo and yum install git-annex.
+
+However, the git-annex in EPEL is very old (from 2014 in EPEL 7).
+Use the [[Linux_standalone]] install to get a current version.

doc/install/ScientificLinux5.mdwn

@@ -1,37 +0,0 @@
-For SL6/CentOS6 install the EPEL repo and yum install git-annex. 
-
-I was waiting for my backups to be done hence this article, as I was using
-_git-annex_ to manage my files and I decided I needed to have
-git-annex on a SL5 based machine. SL5 is just an opensource
-clone/recompile of RHEL5.
-
-I haven't tried to install the newer versions of Haskell Platform and
-GHC in a while on SL5 to install git-annex. But the last time I checked
-when GHC7 was out, it was a pain to install GHC on SL5.
-
-However I have discovered that someone has gone through the trouble of
-packaging up GHC and Haskell Platform for RHEL based distros.
-
-* <http://justhub.org/download> - Packaged GHC and Haskell Platform
-  RPM's for RHEL based systems.
-
-I'm primarily interested in installing _git-annex_ on SL5 based
-systems. The installation process goes as such...
-
-First install GHC and Haskell Platform (you need root for these
-following steps)
-
-    $ wget http://sherkin.justhub.org/el5/RPMS/x86_64/justhub-release-2.0-4.0.el5.x86_64.rpm
-    $ rpm -ivh justhub-release-2.0-4.0.el5.x86_64.rpm
-    $ yum install haskell
-
-The RPM's don't place the files in /usr/bin, so you must add the
-following to your .bashrc (from here on you don't need root if you
-don't want things to be system wide)
-
-    $ export PATH=/usr/hs/bin:$PATH
-
-Once the GHC packages are installed and are in your execution path, using
-cabal to build git-annex just makes life easier, it
-should install all the needed dependancies. See "minimal build with cabal
-and stackage" in [[fromsource]] for instructions.

doc/tips/unlocked_files.mdwn

@@ -9,50 +9,15 @@ want to lose it in a fumblefingered mistake.
 	bash: some_file: Permission denied
 
 Sometimes though you want to modify a file. Maybe once, or maybe
-repeatedly. To modify a locked file, you have to first unlock it,
+repeatedly. To support this, git-annex also supports unlocked files.
-by running `git annex unlock`.
+They are stored in the git repository differently, and they appear as
+regular files in the working tree, instead of the symbolic links used for
+locked files.
 
-	# git annex unlock some_file
+## adding unlocked files
-	# echo "new content" > some_file
 
-Back before git-annex version 7, and its v7 repository mode, unlocking a file
+Instead of using `git annex add`, use `git add`, and the file will be
-like this was a transient thing. You'd modify it and then `git annex add` the
+stored in git-annex, but left unlocked.
-modified version to the annex, and finally `git commit`. The new version of
-the file was then back to being locked.
-
-	# git annex add some_file
-	add some_file
-	# git commit
-
-But, that had some problems. The main one is that some users want to be able
-to edit files repeatedly, without manually having to unlock them every time.
-The [[direct_mode]] made all files be unlocked all the time, but it
-had many problems of its own.
-
-## enter v7 mode
-
-This led to the v7 repository mode, which makes unlocked files remain
-unlocked after they're committed, so you can keep changing them and
-committing the changes whenever you'd like. It also lets you use more
-normal git commands (or even interfaces on top of git) for handling
-annexed files.
-
-To get a repository into v7 mode, you can [[upgrade|upgrades]] it.
-This will eventually happen automatically, but for now it's a manual process
-(be sure to read [[upgrades]] before doing this):
-
-	# git annex upgrade
-	
-Or, you can init a new repository in v7 mode.
-
-	# git init
-	# git annex init --version=7
-
-## using it
-
-Using a v7 repository is easy! Simply use regular git commands to add
-and commit files. In a git-annex repository, git will use git-annex
-to store the file contents, and the files will be left unlocked.
 
 [[!template id=note text="""
 Want `git add` to add some file contents to the annex, but store the contents of
@@ -94,7 +59,7 @@ mode is used. To make them always use unlocked mode, run:
 
 ## mixing locked and unlocked files
 
-A v7 repository can contain both locked and unlocked files. You can switch 
+A repository can contain both locked and unlocked files. You can switch 
 a file back and forth using the `git annex lock` and `git annex unlock`
 commands. This changes what's stored in git between a git-annex symlink
 (locked) and a git-annex pointer file (unlocked). To add a file to
@@ -110,7 +75,7 @@ automatically sets up a repository to use all unlocked files.
 
 ## imperfections
 
-Unlocked files in v7 repositories mostly work very well, but there are a
+Unlocked files mostly work very well, but there are a
 few imperfections which you should be aware of when using them.
 
 1. `git stash`, `git cherry-pick` and `git reset --hard` don't update

doc/todo/cloning_direct_mode_repo_over_http.mdwn

@@ -34,3 +34,5 @@ the direct mode database either way!
 
 --[[Joey]]
 [[!meta tag=deprecateddirectmode]]
+
+> direct mode has been removed, so [[done]] --[[Joey]]

doc/todo/sqlite_database_improvements.mdwn

@@ -52,13 +52,21 @@ process.
 > solve the encoding problem other than changing the encoding
 > SKey, IKey, and SFilePath in a non-backwards-compatible way.
 > 
-> (Unless the encoding problem is related to persistent's use of Text
+> Probably the encoding problem is actually not in sqlite, but
-> internally, and could then perhaps be avoided by avoiding that?)
+> in persistent's use of Text internally. I did some tests with sqlite3
+> command and it did not seem to vary query results based on the locale
+> when using VARCHAR values. I was able to successfully insert an 
+> invalid unicode `ff` byte into it, and get the same byte back out.
 > 
-> The simplest and best final result would be use a ByteString
+> Unfortunately, it's not possible to make persistent not use Text
-> for all of them, and store a blob in sqlite. Attached patch
+> for VARCHAR. While its PersistDbSpecific lets a non-Text value be stored
-> shows how to do that, but old git-annex won't be able to read
+> as VARCHAR, any VARCHAR value coming out of the database gets converted
-> the updated databases, and won't know that it can't read them!
+> to a PersistText.
+> 
+> So that seems to leave using a BLOB to store a ByteString for 
+> SKey, IKey, and SFilePath. Attached patch shows how to do that,
+> but old git-annex won't be able to read the updated databases,
+> and won't know that it can't read them!
 > 
 > This seems to call for a flag day, throwing out the old database
 > contents and regenerating them from other data:
@@ -90,15 +98,9 @@ process.
 > out of the way won't do; old git-annex will just recreate them and 
 > start with missing data!
 > 
-> And, what about users who really need to continue using an old git-annex
+> And, what about users who use a mix of old and new git-annex versions?
-> and get bitten by the flag day?
 > 
-> Should this instead be a annex.version bump from v7 to v8?
+> Seems this needs an annex.version bump from v7 to v8.
-> But v5 is also affected for ContentIdentifier and Export and Fsck.
-> Don't want v5.1.
->
-> > Waiting until v5 is no longer supported and including this in v8
-> > seems the only sure way to avoid backwards compatability issues.
 
 ----
 

doc/todo/v7_path_toward_default.mdwn

@@ -2,12 +2,8 @@ Tracking v7 progress toward becoming the default.
 
 ## step 1: release
 
-done
-
 ## step 2: default for new repositories that used to use direct mode
 
-done
-
 ## step 3: auto-upgrade from direct mode
 
 Direct mode is very buggy and limited, so it's easy for v7 (with adjusted
@@ -30,8 +26,6 @@ would be a problem.
 <http://git-annex.branchable.com/bugs/WSL_adjusted_braches__58___smudge_fails_with_sqlite_thread_crashed_-_locking_protocol/>
 But, regular v5 and v7 repos do work in WSL.
 
-done
-
 ## step 4: default for all new repositories
 
 Could probably happen fairly soon after switch of direct mode.
@@ -42,8 +36,6 @@ avoids the problems discussed in step 5.
 
 ## step 5: automatic v5 to v7 upgrades
 
-`v7-default` branch in git has this.
-
 Since v5 repos and v7 repos not using unlocked files are functionally
 almost identical, this is unlikely to break much. Unlocking files will of
 course change behavior though.
@@ -87,3 +79,6 @@ and so is blocked on v5 auto-upgrading.
 This won't simplify much code, worth doing eventually. Once automatic v5 to
 v7 upgrades happen, the remaining v5 specific code is not needed any
 longer.
+
+> all now [[done]]
+

doc/todo/wishlist__58___pack_metadata_in_direct_mode.mdwn

@@ -3,3 +3,7 @@ The metadata storage for direct mode (V3) is this. In directory .git/annex/objec
 It would be great if these files are packed, maybe also in the git pack files format.
 
 [[!meta tag=deprecateddirectmode]]
+
+> direct mode has been removed. Its replacement, v7 unlocked, does use a
+> sqlite database that packs all the metadata in one place. [[done]]
+> --[[Joey]]

doc/upgrades.mdwn

@@ -55,6 +55,8 @@ were added in v7. See below for details about what's new in v6/v7.
 
 ## v5 -> v6 (git-annex version 6.x)
 
+v5 repositories are automatically upgraded to v6.
+
 A v6 git-annex repository can have some files locked while other files are
 unlocked, and all git and git-annex commands can be used on both locked and
 unlocked files. It's a good idea to make sure that all users of the
@@ -89,11 +91,6 @@ same tradeoff.
 See [[tips/unlocked_files/]] for more details about locked files and thin
 mode.
 
-Normally you will need to run git-annex upgrade to perform this upgrade.
-But, when a new enough git-annex is used in a direct mode repository,
-it will be automatically upgraded and configured to use unlocked files
-instead of direct mode.
-
 ## v4 -> v5 (git-annex version 5.x)
 
 The upgrade from v4 to v5 is handled