Safe Haskell	None

VCSWrapper.Git

Description

Provides high-level Git functions like commit, checkout, status, log,...

All functions of this module run in the Ctx monad, common to all VCS. On unexpected behavior, these functions will throw a VCSException.

Synopsis

Documentation

initDB Source

Arguments

:: Bool	if `True`, this repository will be initialized as a bare repository (appends `--bare` to the git command)
-> Ctx ()

Initialize a new git repository. Executes git init.

add Source

Arguments

:: [FilePath]	`FilePath`s to add to the index.
-> Ctx ()

Add files to the index. Executes git add.

rm Source

Arguments

:: [FilePath]	`FilePath`s to remove.
-> Ctx ()

Remove files from the index and the working directory. Executes git rm.

commit Source

Arguments

:: [FilePath]	`FilePath`s to be commited instead of the current index. Leave empty to commit the index.
-> Maybe (String, String)	(Author name, email)
-> String	Commit message. Don't leave this empty.
-> [String]	Options to be passed to the git executable.
-> Ctx ()

Commit the current index or the specified files to the repository. Executes git commit.

checkout Source

Arguments

:: Maybe String	Commit ID
-> Maybe String	Branchname. If specified, `git checkout -b <branchname>` will be executed.
-> Ctx ()

Checkout the index to some commit ID. Executes git checkout.

status :: Ctx [Status]Source

Return status of the repository as a list of Status. Executes git status.

simpleLog Source

Arguments

:: Maybe String	The branch from which to get the commit messages. (If `Nothing`, the current branch will be used).
-> Ctx [LogEntry]

Get all commit messages. Executes git log.

localBranches Source

Arguments

:: Ctx (String, [String])

(currently checked out branch, list of all other branches)

Get all local branches. Executes git branch.

revparse Source

Arguments

:: String	Revision to pass to rev-parse.
-> Ctx String

Rev-parse a revision. Executes git rev-parse.

remote :: Ctx [String]Source

Get all remotes. Executes git remote.

pull :: Ctx (Either String ())Source

Pull changes from the remote as configured in the git configuration. If a merge conflict is detected, the error message is returned, otherwise 'Right ()' is returned. Executes git pull.

push :: Ctx ()Source

Push changes to the remote as configured in the git configuration. Executes git push.

runVcs Source

Arguments

:: Config	`Config` for a VCS
-> Ctx t	An operation running in `Ctx`
-> IO t

Run a VCS Ctx from a Config and returns the result

data VCSType Source

Available VCS types implemented in this package.

Constructors

SVN
GIT
Mercurial

Instances

Eq VCSType
Read VCSType
Show VCSType

type IsLocked = Bool Source

True, if this file is locked by the VCS.

data LogEntry Source

Represents a log entry in the history managed by the VCS.

Constructors

LogEntry
Fields mbBranch :: Maybe String Maybe Branchname commitID :: String Commit identifier author :: String Author of this commit. email :: String Email address of the author. date :: String Date this log entry was created. subject :: String Short commit message. body :: String Long body of the commit message.

Instances

Show LogEntry

newtype Ctx a Source

Context for all VCS commands.

E.g. to create a new Git repository use something like this:

import VCSWrapper.Git
myInitRepoFn = do
    let config = makeConfig "path/to/repo" Nothing Nothing
    runVcs config $ initDB False

Constructors

Ctx (ReaderT Config IO a)

Instances

Monad Ctx
MonadIO Ctx
MonadReader Config Ctx

data Config Source

Configuration of the Ctx the VCS commands will be executed in.

Constructors

Config

Fields

configCwd :: Maybe FilePath: Path to the main directory of the repository. E.g. for Git: the directory of the repository containing the .git config directory.
configPath :: Maybe FilePath: Path to the vcs executable. If Nothing, the PATH environment variable will be search for a matching executable.
configAuthor :: Maybe Author: Author to be used for different VCS actions. If Nothing, the default for the selected repository will be used.
configEnvironment :: [(String, String)]: List of environment variables mappings passed to the underlying VCS executable.

Instances

Read Config
Show Config
MonadReader Config Ctx

data Author Source

Author to be passed to VCS commands where applicable.

Constructors

Author
Fields authorName :: String Name of the author. authorEmail :: Maybe String Email address of the author.

Instances

Read Author
Show Author

data VCSException Source

This Exception-type will be thrown if a VCS command fails unexpectedly.

Constructors

VCSException Int String String String [String]

Exit code -> stdout -> errout -> configCwd of the Config -> List containing the executed command and its options

Instances

Show VCSException
Typeable VCSException
Exception VCSException

data Status Source

Status of a file managed by the respective VCS.

Constructors

SVNStatus FilePath Modification IsLocked
GITStatus FilePath Modification

Instances

Read Status
Show Status

data Modification Source

Flags to describe the state of a file.

Constructors

None	File hasn't been modified.
Added	File has been selected to be managed by the respective VCS.
Conflicting	File is in conflicting state. Manually resolving the conflict may be necessary.
Deleted	File has been deleted.
Modified	File has been modified since last commit.
Replaced	File has been replaced by a different file.
Untracked	File is currently not known by the VCS.
Unknown	State of file is unknown.
Ignored	File is ignored by VCS.
Missing	File is missing.

Instances

Eq Modification
Read Modification
Show Modification

makeConfig Source

Arguments

:: Maybe FilePath	Path to the main directory of the repository. E.g. for Git: the directory of the repository containing the `.git` config directory.
-> Maybe FilePath	Path to the vcs executable. If `Nothing`, the PATH environment variable will be search for a matching executable.
-> Maybe Author	Author to be used for different VCS actions. If `Nothing`, the default for the selected repository will be used.
-> Config

Creates a new Config.

makeConfigWithEnvironment Source

Arguments

:: Maybe FilePath	Path to the main directory of the repository. E.g. for Git: the directory of the repository containing the `.git` config directory.
-> Maybe FilePath	Path to the vcs executable. If `Nothing`, the PATH environment variable will be search for a matching executable.
-> Maybe Author	Author to be used for different VCS actions. If `Nothing`, the default for the selected repository will be used.
-> [(String, String)]	List of environment variables mappings passed to the underlying VCS executable.
-> Config

Creates a new Config with a list of environment variables.

filePath :: Status -> FilePath Source

Retrieve the FilePath of any VCS Status.

modification :: Status -> Modification Source

Retrieve the Modification of any VCS Status.

isLocked :: Status -> IsLocked Source

Retrieve the IsLocked of any VCS Status. For Git, this returns always False.