Safe Haskell	None

VCSWrapper.Common

Description

This module exports types and functions common to all VCS.

Synopsis

Documentation

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.

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

vcsExec Source

Arguments

:: String	VCS shell-command, e.g. git
-> String	VCS command, e.g. checkout
-> [String]	options
-> [(String, String)]	environment variables
-> Ctx (Either VCSException String)

Internal function to execute a VCS command

vcsExecThrowingOnError Source

Arguments

:: String	VCS shell-command, e.g. git
-> String	VCS command, e.g. checkout
-> [String]	options
-> [(String, String)]	environment variables
-> Ctx String

Internal function to execute a VCS command. Throws an exception if the command fails.

exec Source

Arguments

:: String	VCS command, e.g. checkout
-> [String]	options
-> [(String, String)]	environment variables
-> String	VCS shell-command, e.g. git
-> (Config -> Maybe FilePath)	variable getter applied to content of Ctx
-> Ctx (Either VCSException String)

Internal function to execute a VCS command