mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
git-annex/Command/Commit.hs

30 lines
699 B
Haskell
Raw Normal View History

add git-annex-shell commit Eventually, git-annex might try running this after making changes to a remote. I have not yet thought of a good way for it to tell which remotes it needs to run it on though. It can't just do it when shutting down a cached ssh connection, because ssh connection caching is optional, and that would not handle local remotes not accessed over ssh either.
2012-02-25 20:31:38 +00:00
{- git-annex command
-
update my email address and homepage url
2015-01-21 16:50:09 +00:00
- Copyright 2012 Joey Hess <id@joeyh.name>
add git-annex-shell commit Eventually, git-annex might try running this after making changes to a remote. I have not yet thought of a good way for it to tell which remotes it needs to run it on though. It can't just do it when shutting down a cached ssh connection, because ssh connection caching is optional, and that would not handle local remotes not accessed over ssh either.
2012-02-25 20:31:38 +00:00
-
update licenses from GPL to AGPL This does not change the overall license of the git-annex program, which was already AGPL due to a number of sources files being AGPL already. Legally speaking, I'm adding a new license under which these files are now available; I already released their current contents under the GPL license. Now they're dual licensed GPL and AGPL. However, I intend for all my future changes to these files to only be released under the AGPL license, and I won't be tracking the dual licensing status, so I'm simply changing the license statement to say it's AGPL. (In some cases, others wrote parts of the code of a file and released it under the GPL; but in all cases I have contributed a significant portion of the code in each file and it's that code that is getting the AGPL license; the GPL license of other contributors allows combining with AGPL code.)
2019-03-13 19:48:14 +00:00
- Licensed under the GNU AGPL version 3 or higher.
add git-annex-shell commit Eventually, git-annex might try running this after making changes to a remote. I have not yet thought of a good way for it to tell which remotes it needs to run it on though. It can't just do it when shutting down a cached ssh connection, because ssh connection caching is optional, and that would not handle local remotes not accessed over ssh either.
2012-02-25 20:31:38 +00:00
-}
module Command.Commit where
import Command
import qualified Annex.Branch
git-annex-shell: Runs hooks/annex-content after content is received or dropped.
2012-03-14 16:01:56 +00:00
import qualified Git
add git-annex-shell commit Eventually, git-annex might try running this after making changes to a remote. I have not yet thought of a good way for it to tell which remotes it needs to run it on though. It can't just do it when shutting down a cached ssh connection, because ssh connection caching is optional, and that would not handle local remotes not accessed over ssh either.
2012-02-25 20:31:38 +00:00
started converting to use optparse-applicative This is a work in progress. It compiles and is able to do basic command dispatch, including git autocorrection, while using optparse-applicative for the core commandline parsing. * Many commands are temporarily disabled before conversion. * Options are not wired in yet. * cmdnorepo actions don't work yet. Also, removed the [Command] list, which was only used in one place.
2015-07-08 16:33:27 +00:00
cmd :: Command
convert all commands to work with optparse-applicative Still no options though.
2015-07-08 19:08:02 +00:00
cmd = command "commit" SectionPlumbing
"commits any staged changes to the git-annex branch"
paramNothing (withParams seek)
add git-annex-shell commit Eventually, git-annex might try running this after making changes to a remote. I have not yet thought of a good way for it to tell which remotes it needs to run it on though. It can't just do it when shutting down a cached ssh connection, because ssh connection caching is optional, and that would not handle local remotes not accessed over ssh either.
2012-02-25 20:31:38 +00:00
started converting to use optparse-applicative This is a work in progress. It compiles and is able to do basic command dispatch, including git autocorrection, while using optparse-applicative for the core commandline parsing. * Many commands are temporarily disabled before conversion. * Options are not wired in yet. * cmdnorepo actions don't work yet. Also, removed the [Command] list, which was only used in one place.
2015-07-08 16:33:27 +00:00
seek :: CmdParams -> CommandSeek
move commandAction out of CmdLine.Seek This is groundwork for nested seek loops, eg seeking over all files and then performing commandActions on a list of remotes, which can be done concurrently. This commit was sponsored by Boyd Stephen Smith Jr. on Patreon.
2018-10-01 18:12:06 +00:00
seek = withNothing (commandAction start)
add git-annex-shell commit Eventually, git-annex might try running this after making changes to a remote. I have not yet thought of a good way for it to tell which remotes it needs to run it on though. It can't just do it when shutting down a cached ssh connection, because ssh connection caching is optional, and that would not handle local remotes not accessed over ssh either.
2012-02-25 20:31:38 +00:00
start :: CommandStart
start = next $ next $ do
added annex.commitmessage Added annex.commitmessage config that can specify a commit message for the git-annex branch instead of the usual "update". This commit was supported by the NSF-funded DataLad project.
2018-08-02 18:06:06 +00:00
Annex.Branch.commit =<< Annex.Branch.commitMessage
fishy commit
2012-06-14 04:01:48 +00:00
_ <- runhook <=< inRepo $ Git.hookPath "annex-content"
ignore hook exit status
2012-03-14 16:39:09 +00:00
return True
where indentation
2012-11-12 05:05:04 +00:00
where
runhook (Just hook) = liftIO $ boolSystem hook []
runhook Nothing = return True
Reference in a new issue Copy permalink