git-annex/Types/CleanupActions.hs

{- Enumeration of cleanup actions
 -
 - Copyright 2014-2020 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU AGPL version 3 or higher.
 -}

module Types.CleanupActions where

import Types.UUID
import Utility.Url

import System.Process (Pid)

data CleanupAction
	= RemoteCleanup UUID
	| StopHook UUID
	| FsckCleanup
	| SshCachingCleanup
	| AdjustedBranchUpdate
	| TorrentCleanup URLString
	| OtherTmpCleanup
	deriving (Eq, Ord)

data SignalAction
	= PropagateSignalProcessGroup Pid
	deriving (Eq, Ord)
clean up cleanup action enumeration 2014-03-13 19:06:26 -04:00			`{- Enumeration of cleanup actions`
			`-`
propagate signals to the transferrer process group Done on unix, could not implement it on windows quite. The signal library gets part of the way needed for windows. But I had to open https://github.com/pmlodawski/signal/issues/1 because it lacks raiseSignal. Also, I don't know what the equivilant of getProcessGroupIDOf is on windows. And System.Process does not provide a way to send any signal to a process group except for SIGINT. This commit was sponsored by Boyd Stephen Smith Jr. on Patreon. 2020-12-11 15:28:58 -04:00			`- Copyright 2014-2020 Joey Hess <id@joeyh.name>`
clean up cleanup action enumeration 2014-03-13 19:06:26 -04: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 15:48:14 -04:00			`- Licensed under the GNU AGPL version 3 or higher.`
clean up cleanup action enumeration 2014-03-13 19:06:26 -04:00			`-}`

			`module Types.CleanupActions where`

			`import Types.UUID`
Added bittorrent special remote addurl behavior change: When downloading an url ending in .torrent, it will download files from bittorrent, instead of the old behavior of adding the torrent file to the repository. Added Recommends on aria2 and bittornado \| bittorrent. This commit was sponsored by Asbjørn Sloth Tønnesen. 2014-12-16 23:22:46 -04:00			`import Utility.Url`

propagate signals to the transferrer process group Done on unix, could not implement it on windows quite. The signal library gets part of the way needed for windows. But I had to open https://github.com/pmlodawski/signal/issues/1 because it lacks raiseSignal. Also, I don't know what the equivilant of getProcessGroupIDOf is on windows. And System.Process does not provide a way to send any signal to a process group except for SIGINT. This commit was sponsored by Boyd Stephen Smith Jr. on Patreon. 2020-12-11 15:28:58 -04:00			`import System.Process (Pid)`

clean up cleanup action enumeration 2014-03-13 19:06:26 -04:00			`data CleanupAction`
			`= RemoteCleanup UUID`
			`\| StopHook UUID`
			`\| FsckCleanup`
only run sshCleanup when the command actually used ssh connection caching Optimises query commands that do not. More importantly, avoids any ssh connection cleanup delay causing problems at the end of such commands. 2014-03-13 19:30:13 -04:00			`\| SshCachingCleanup`
annex.adjustedbranchrefresh Added annex.adjustedbranchrefresh git config to update adjusted branches set up by git-annex adjust --unlock-present/--hide-missing. Note, in a few cases, I was not able to make the adjusted branch be updated in calls to moveAnnex, because information about what file corresponds to a key is not available. They are: * If two files point to one file, then eg, `git annex get foo` will update the branch to unlock foo, but will not unlock bar, because it does not know about it. Might be fixable by making `git annex get bar` do something besides skipping bar? * git-annex-shell recvkey likewise (so sends over ssh from old versions of git-annex) * git-annex setkey * git-annex transferkey if the user does not use --file * git-annex multicast sends keys with no associated file info Doing a single full refresh at the end, after any incremental refresh, will deal with those edge cases. 2020-11-16 14:09:55 -04:00			`\| AdjustedBranchUpdate`
Added bittorrent special remote addurl behavior change: When downloading an url ending in .torrent, it will download files from bittorrent, instead of the old behavior of adding the torrent file to the repository. Added Recommends on aria2 and bittornado \| bittorrent. This commit was sponsored by Asbjørn Sloth Tønnesen. 2014-12-16 23:22:46 -04:00			`\| TorrentCleanup URLString`
misctmp cleanup * Switch to using .git/annex/othertmp for tmp files other than partial downloads, and make stale files left in that directory when git-annex is interrupted be cleaned up promptly by subsequent git-annex processes. * The .git/annex/misctmp directory is no longer used and git-annex will delete anything lingering in there after it's 1 week old. Also, in Annex.Ingest, made the filename it uses in the tmp dir be prefixed with "ingest-" to avoid potentially using a filename used by some other code. 2019-01-17 15:40:44 -04:00			`\| OtherTmpCleanup`
clean up cleanup action enumeration 2014-03-13 19:06:26 -04:00			`deriving (Eq, Ord)`
propagate signals to the transferrer process group Done on unix, could not implement it on windows quite. The signal library gets part of the way needed for windows. But I had to open https://github.com/pmlodawski/signal/issues/1 because it lacks raiseSignal. Also, I don't know what the equivilant of getProcessGroupIDOf is on windows. And System.Process does not provide a way to send any signal to a process group except for SIGINT. This commit was sponsored by Boyd Stephen Smith Jr. on Patreon. 2020-12-11 15:28:58 -04:00
			`data SignalAction`
			`= PropagateSignalProcessGroup Pid`
			`deriving (Eq, Ord)`