mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

uninit: remove undocumented suport for specifying files to act on

Browse source 
I think this was just copied from another command without paying
attention to what it did, because there does not seem to be any valid
reason to want to only unannex some files when running uninit.
This commit is contained in:
Joey Hess 2023-05-11 13:20:35 -04:00
parent de84abb210
commit cd5108bb47
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Command/Uninit.hs
View file

@ -28,7 +28,7 @@ cmd :: Command
cmd = addCheck check $ cmd = addCheck check $
command "uninit" SectionUtility command "uninit" SectionUtility
"de-initialize git-annex and clean out repository" "de-initialize git-annex and clean out repository"
paramPaths (withParams seek) paramNothing (withParams seek)
check :: Annex () check :: Annex ()
check = do check = do
@ -48,9 +48,9 @@ check = do
revhead = inRepo $ Git.Command.pipeReadStrict revhead = inRepo $ Git.Command.pipeReadStrict
[Param "rev-parse", Param "--abbrev-ref", Param "HEAD"] [Param "rev-parse", Param "--abbrev-ref", Param "HEAD"]
seek :: CmdParams -> CommandSeek seek :: CommandParams -> CommandSeek
seek ps = do seek = withNothing $ do
l <- workTreeItems ww ps l <- workTreeItems ww []
withFilesNotInGit withFilesNotInGit
(CheckGitIgnore False) (CheckGitIgnore False)
(WarnUnmatchWorkTreeItems "uninit") (WarnUnmatchWorkTreeItems "uninit")