git-annex/Annex/Common.hs

{-# LANGUAGE CPP #-}

module Annex.Common (module X) where

import Common as X
import Types as X
import Key as X
import Types.UUID as X
import Annex as X (gitRepo, inRepo, fromRepo, calcRepo, calcRepo')
import Annex.Locations as X
import Annex.Debug as X (fastDebug, debug)
import Messages as X
import Git.Filename as X
#ifndef mingw32_HOST_OS
import System.Posix.IO as X hiding (createPipe)
#endif
finally really add back custom-setup stanza Fourth or fifth try at this and finally found a way to make it work. Absurd amount of busy-work forced on me by change in cabal's behavior. Split up Utility modules that need posix stuff out of ones used by Setup. Various other hacks around inability for Setup to use anything that ifdefs a use of unix. Probably lost a full day of my life to this. This is how build systems make their users hate them. Just saying. 2017-12-31 20:08:31 +00:00			`{-# LANGUAGE CPP #-}`

remove 163 lines of code without changing anything except imports 2016-01-20 20:36:33 +00:00			`module Annex.Common (module X) where`
factor out common imports no code changes 2011-10-04 02:24:57 +00:00
lint 2011-11-11 05:52:58 +00:00			`import Common as X`
			`import Types as X`
factor non-type stuff out of Key 2017-02-24 17:42:30 +00:00			`import Key as X`
remove 163 lines of code without changing anything except imports 2016-01-20 20:36:33 +00:00			`import Types.UUID as X`
add annex.dbdir (WIP) WIP: This is mostly complete, but there is a problem: createDirectoryUnder throws an error when annex.dbdir is set to outside the git repo. annex.dbdir is a workaround for filesystems where sqlite does not work, due to eg, the filesystem not properly supporting locking. It's intended to be set before initializing the repository. Changing it in an existing repository can be done, but would be the same as making a new repository and moving all the annexed objects into it. While the databases get recreated from the git-annex branch in that situation, any information that is in the databases but not stored in the branch gets lost. It may be that no information ever gets stored in the databases that cannot be reconstructed from the branch, but I have not verified that. Sponsored-by: Dartmouth College's Datalad project 2022-08-11 20:57:44 +00:00			`import Annex as X (gitRepo, inRepo, fromRepo, calcRepo, calcRepo')`
remove 163 lines of code without changing anything except imports 2016-01-20 20:36:33 +00:00			`import Annex.Locations as X`
use fastDebug everywhere it can be used None of these are likely to yeild a noticable speedup though. 2021-04-06 19:41:24 +00:00			`import Annex.Debug as X (fastDebug, debug)`
lint 2011-11-11 05:52:58 +00:00			`import Messages as X`
filter out control characters in warning messages Converted warning and similar to use StringContainingQuotedPath. Most warnings are static strings, some do refer to filepaths that need to be quoted, and others don't need quoting. Note that, since quote filters out control characters of even UnquotedString, this makes all warnings safe, even when an attacker sneaks in a control character in some other way. When json is being output, no quoting is done, since json gets its own quoting. This does, as a side effect, make warning messages in json output not be indented. The indentation is only needed to offset warning messages underneath the display of the file they apply to, so that's ok. Sponsored-by: Brett Eisenberg on Patreon 2023-04-10 18:47:32 +00:00			`import Git.Filename as X`
finally really add back custom-setup stanza Fourth or fifth try at this and finally found a way to make it work. Absurd amount of busy-work forced on me by change in cabal's behavior. Split up Utility modules that need posix stuff out of ones used by Setup. Various other hacks around inability for Setup to use anything that ifdefs a use of unix. Probably lost a full day of my life to this. This is how build systems make their users hate them. Just saying. 2017-12-31 20:08:31 +00:00			`#ifndef mingw32_HOST_OS`
			`import System.Posix.IO as X hiding (createPipe)`
			`#endif`