darcs-2.12.5: a distributed, interactive, smart revision control system

Safe Haskell | None
Language | Haskell2010

Darcs.Repository.Rebase

Synopsis

- data RebaseJobFlags = RebaseJobFlags {
  - rjoCompression :: Compression
  - rjoVerbosity :: Verbosity
  - rjoUpdateWorking :: UpdateWorking
  }
- withManualRebaseUpdate :: forall rt p x wR wU wT1 wT2. (IsRepoType rt, RepoPatch p, ApplyState p ~ Tree) => RebaseJobFlags -> Repository rt p wR wU wT1 -> (Repository rt p wR wU wT1 -> IO (Repository rt p wR wU wT2, FL (RebaseFixup p) wT2 wT1, x)) -> IO (Repository rt p wR wU wT2, x)
- rebaseJob :: (RepoPatch p, ApplyState p ~ Tree) => (Repository (RepoType IsRebase) p wR wU wR -> IO a) -> Repository (RepoType IsRebase) p wR wU wR -> RebaseJobFlags -> IO a
- startRebaseJob :: (RepoPatch p, ApplyState p ~ Tree) => (Repository (RepoType IsRebase) p wR wU wR -> IO a) -> Repository (RepoType IsRebase) p wR wU wR -> RebaseJobFlags -> IO a
- maybeDisplaySuspendedStatus :: (RepoPatch p, ApplyState p ~ Tree) => SRebaseType rebaseType -> Repository (RepoType rebaseType) p wR wU wR -> IO ()

# Documentation

data RebaseJobFlags #

Some common flags that are needed to run rebase jobs. Normally flags are captured directly by the implementation of the specific job's function, but the rebase infrastructure needs to do work on the repository directly that sometimes needs these options, so they have to be passed as part of the job definition.

Constructors

RebaseJobFlags |
Fields rjoCompression :: Compression rjoVerbosity :: Verbosity rjoUpdateWorking :: UpdateWorking

withManualRebaseUpdate :: forall rt p x wR wU wT1 wT2. (IsRepoType rt, RepoPatch p, ApplyState p ~ Tree) => RebaseJobFlags -> Repository rt p wR wU wT1 -> (Repository rt p wR wU wT1 -> IO (Repository rt p wR wU wT2, FL (RebaseFixup p) wT2 wT1, x)) -> IO (Repository rt p wR wU wT2, x) #

rebaseJob :: (RepoPatch p, ApplyState p ~ Tree) => (Repository (RepoType IsRebase) p wR wU wR -> IO a) -> Repository (RepoType IsRebase) p wR wU wR -> RebaseJobFlags -> IO a #

startRebaseJob :: (RepoPatch p, ApplyState p ~ Tree) => (Repository (RepoType IsRebase) p wR wU wR -> IO a) -> Repository (RepoType IsRebase) p wR wU wR -> RebaseJobFlags -> IO a #

maybeDisplaySuspendedStatus :: (RepoPatch p, ApplyState p ~ Tree) => SRebaseType rebaseType -> Repository (RepoType rebaseType) p wR wU wR -> IO () #