VCSWrapper.Mercurial

Documentation

addremove

Arguments

:: [FilePath]

files to add

-> Ctx ()

Add all new files, delete all missing files. Executes hg addremove.

commit

Arguments

:: [FilePath]

files to commit. List may be empty - if not only specified files will be commited

-> Text

message, can be empty

-> [Text]

options

-> Ctx ()

Commit the specified files or all outstanding changes. Executes hg commit.

pull :: Ctx ()

Pull changes from a remote repository to a local one. If a merge conflict is detected, the error message is returned, otherwise 'Right ()' is returned. Executes hg pull.

push :: Ctx ()

Push changesets from the local repository to the default destination.

simpleLog

Arguments

:: Maybe Text

Show the specified revision or range or branch

-> Ctx [LogEntry]

Show revision history of entire repository or files. Executes hg log.

update :: Maybe Text -> Ctx ()

Update the repository's working directory to the specified changeset. If no changeset is specified, update to the tip of the current named branch.

status :: Ctx [Status]

Show changed files in the working directory as a list of Status. Executes hg status.

runVcs

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

Available VCS types implemented in this package.

Constructors

SVN

GIT

Mercurial

Instances

Eq VCSType

Methods

(==) :: VCSType -> VCSType -> Bool

(/=) :: VCSType -> VCSType -> Bool

Read VCSType

Methods

readsPrec :: Int -> ReadS VCSType

readList :: ReadS [VCSType]

readPrec :: ReadPrec VCSType

readListPrec :: ReadPrec [VCSType]

Show VCSType

Methods

showsPrec :: Int -> VCSType -> ShowS

show :: VCSType -> String

showList :: [VCSType] -> ShowS

type IsLocked = Bool

True, if this file is locked by the VCS.

data LogEntry

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

Constructors

LogEntry

Fields

• mbBranch :: Maybe Text

  Maybe Branchname

• commitID :: Text

  Commit identifier

• author :: Text

  Author of this commit.

• email :: Text

  Email address of the author.

• date :: Text

  Date this log entry was created.

• subject :: Text

  Short commit message.

• body :: Text

  Long body of the commit message.

Instances

Show LogEntry

Methods

showsPrec :: Int -> LogEntry -> ShowS

show :: LogEntry -> String

showList :: [LogEntry] -> ShowS

newtype Ctx a

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

Methods

(>>=) :: Ctx a -> (a -> Ctx b) -> Ctx b

(>>) :: Ctx a -> Ctx b -> Ctx b

return :: a -> Ctx a

fail :: String -> Ctx a

Functor Ctx

Methods

fmap :: (a -> b) -> Ctx a -> Ctx b

(<$) :: a -> Ctx b -> Ctx a

Applicative Ctx

Methods

pure :: a -> Ctx a

(<*>) :: Ctx (a -> b) -> Ctx a -> Ctx b

(*>) :: Ctx a -> Ctx b -> Ctx b

(<*) :: Ctx a -> Ctx b -> Ctx a

MonadIO Ctx

Methods

liftIO :: IO a -> Ctx a

MonadReader Config Ctx

Methods

ask :: Ctx Config

local :: (Config -> Config) -> Ctx a -> Ctx a

reader :: (Config -> a) -> Ctx a

data Config

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 :: [(Text, Text)]

  List of environment variables mappings passed to the underlying VCS executable.

Instances

Read Config

Methods

readsPrec :: Int -> ReadS Config

readList :: ReadS [Config]

readPrec :: ReadPrec Config

readListPrec :: ReadPrec [Config]

Show Config

Methods

showsPrec :: Int -> Config -> ShowS

show :: Config -> String

showList :: [Config] -> ShowS

MonadReader Config Ctx

Methods

ask :: Ctx Config

local :: (Config -> Config) -> Ctx a -> Ctx a

reader :: (Config -> a) -> Ctx a

data Author

Author to be passed to VCS commands where applicable.

Constructors

Author

Fields

• authorName :: Text

  Name of the author.

• authorEmail :: Maybe Text

  Email address of the author.

Instances

Read Author

Methods

readsPrec :: Int -> ReadS Author

readList :: ReadS [Author]

readPrec :: ReadPrec Author

readListPrec :: ReadPrec [Author]

Show Author

Methods

showsPrec :: Int -> Author -> ShowS

show :: Author -> String

showList :: [Author] -> ShowS

data VCSException

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

Constructors

VCSException Int Text Text FilePath [Text]

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

Instances

Show VCSException

Methods

showsPrec :: Int -> VCSException -> ShowS

show :: VCSException -> String

showList :: [VCSException] -> ShowS

Exception VCSException

Methods

toException :: VCSException -> SomeException

fromException :: SomeException -> Maybe VCSException

displayException :: VCSException -> String

data Status

Status of a file managed by the respective VCS.

Constructors

SVNStatus FilePath Modification IsLocked

GITStatus FilePath Modification

Instances

Read Status

Methods

readsPrec :: Int -> ReadS Status

readList :: ReadS [Status]

readPrec :: ReadPrec Status

readListPrec :: ReadPrec [Status]

Show Status

Methods

showsPrec :: Int -> Status -> ShowS

show :: Status -> String

showList :: [Status] -> ShowS

data Modification

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

Methods

(==) :: Modification -> Modification -> Bool

(/=) :: Modification -> Modification -> Bool

Read Modification

Methods

readsPrec :: Int -> ReadS Modification

readList :: ReadS [Modification]

readPrec :: ReadPrec Modification

readListPrec :: ReadPrec [Modification]

Show Modification

Methods

showsPrec :: Int -> Modification -> ShowS

show :: Modification -> String

showList :: [Modification] -> ShowS

makeConfig

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

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.

-> [(Text, Text)]

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

Retrieve the FilePath of any VCS Status.

modification :: Status -> Modification

Retrieve the Modification of any VCS Status.

isLocked :: Status -> IsLocked

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