remove direct mode support from Annex.Content

No longer used. The only possible user of it would be code in
Upgrade.V5, so I verified that the parts of Annex.Content it used were
not used to manipulate direct mode files.
This commit is contained in:
Joey Hess 2019-08-27 12:59:57 -04:00
parent 16f646c9a6
commit da6f4d8887
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
8 changed files with 77 additions and 198 deletions

View file

@ -90,12 +90,7 @@ fixupReq req@(Req {}) =
v <- getAnnexLinkTarget' (getfile r) False
case parseLinkTargetOrPointer =<< v of
Nothing -> return r
Just k -> setfile r <$>
withObjectLoc k
-- indirect mode
return
-- direct mode
(return . Prelude.head)
Just k -> withObjectLoc k (pure . setfile r)
_ -> return r
externalDiffer :: String -> [String] -> Differ