- data Repository p = Repo !String ![DarcsFlag] !RepoFormat !(RepoType p)
- data RepoType p = DarcsRepository !Pristine Cache
- data RIO p a
- ($-) :: ((forall p. RepoPatch p => Repository p -> IO a) -> IO a) -> (forall p. RepoPatch p => Repository p -> IO a) -> IO a
- maybeIdentifyRepository :: [DarcsFlag] -> String -> IO (IdentifyRepo p)
- identifyDarcs1Repository :: [DarcsFlag] -> String -> IO (Repository Patch)
- identifyRepositoryFor :: forall p. RepoPatch p => Repository p -> String -> IO (Repository p)
- data IdentifyRepo p
- findRepository :: [DarcsFlag] -> IO (Either String ())
- amInRepository :: [DarcsFlag] -> IO (Either String ())
- amNotInRepository :: [DarcsFlag] -> IO (Either String ())
- revertRepositoryChanges :: RepoPatch p => Repository p -> IO ()
- announceMergeConflicts :: String -> [DarcsFlag] -> FL Prim -> IO Bool
- setTentativePending :: forall p. RepoPatch p => Repository p -> FL Prim -> IO ()
- checkUnrecordedConflicts :: forall p. RepoPatch p => [DarcsFlag] -> FL (Named p) -> IO Bool
- withRecorded :: RepoPatch p => Repository p -> ((AbsolutePath -> IO a) -> IO a) -> (AbsolutePath -> IO a) -> IO a
- readRepo :: RepoPatch p => Repository p -> IO (PatchSet p)
- readTentativeRepo :: RepoPatch p => Repository p -> IO (PatchSet p)
- prefsUrl :: Repository p -> String
- makePatchLazy :: RepoPatch p => Repository p -> PatchInfoAnd p -> IO (PatchInfoAnd p)
- withRepoLock :: [DarcsFlag] -> (forall p. RepoPatch p => Repository p -> IO a) -> IO a
- withRepoReadLock :: [DarcsFlag] -> (forall p. RepoPatch p => Repository p -> IO a) -> IO a
- withRepository :: [DarcsFlag] -> (forall p. RepoPatch p => Repository p -> IO a) -> IO a
- withRepositoryDirectory :: forall a. [DarcsFlag] -> String -> (forall p. RepoPatch p => Repository p -> IO a) -> IO a
- withGutsOf :: Repository p -> IO () -> IO ()
- tentativelyAddPatch :: RepoPatch p => Repository p -> [DarcsFlag] -> PatchInfoAnd p -> IO (Repository p)
- tentativelyRemovePatches :: RepoPatch p => Repository p -> [DarcsFlag] -> FL (PatchInfoAnd p) -> IO (Repository p)
- tentativelyAddToPending :: forall p. RepoPatch p => Repository p -> [DarcsFlag] -> FL Prim -> IO ()
- tentativelyAddPatch_ :: RepoPatch p => UpdatePristine -> Repository p -> [DarcsFlag] -> PatchInfoAnd p -> IO (Repository p)
- tentativelyReplacePatches :: forall p. RepoPatch p => Repository p -> [DarcsFlag] -> FL (PatchInfoAnd p) -> IO (Repository p)
- finalizeRepositoryChanges :: RepoPatch p => Repository p -> IO ()
- unrevertUrl :: Repository p -> String
- applyToWorking :: Patchy p => Repository p1 -> [DarcsFlag] -> p -> IO (Repository p1)
- patchSetToPatches :: RepoPatch p => PatchSet p -> FL (Named p)
- createPristineDirectoryTree :: RepoPatch p => Repository p -> FilePath -> IO ()
- createPartialsPristineDirectoryTree :: (FilePathLike fp, RepoPatch p) => Repository p -> [fp] -> FilePath -> IO ()
- optimizeInventory :: RepoPatch p => Repository p -> IO ()
- cleanRepository :: RepoPatch p => Repository p -> IO ()
- getMarkedupFile :: RepoPatch p => Repository p -> PatchInfo -> FilePath -> IO MarkedUpFile
- data PatchSet p
- type SealedPatchSet p = Sealed (PatchSet p)
- setScriptsExecutable :: IO ()
- getRepository :: RIO p (Repository p)
- rIO :: IO a -> RIO p a
- testTentative :: RepoPatch p => Repository p -> IO ()
- testRecorded :: RepoPatch p => Repository p -> IO ()
- data UpdatePristine
- data MakeChanges
- applyToTentativePristine :: (Effect q, Patchy q) => Repository p -> q -> IO ()
- makeNewPending :: forall p. RepoPatch p => Repository p -> FL Prim -> IO ()
Documentation
Repository IO monad. This monad-like datatype is responsible for sequencing IO actions that modify the tentative recorded state of the repository.
($-) :: ((forall p. RepoPatch p => Repository p -> IO a) -> IO a) -> (forall p. RepoPatch p => Repository p -> IO a) -> IO aSource
maybeIdentifyRepository :: [DarcsFlag] -> String -> IO (IdentifyRepo p)Source
identifyDarcs1Repository :: [DarcsFlag] -> String -> IO (Repository Patch)Source
identifyRepositoryFor :: forall p. RepoPatch p => Repository p -> String -> IO (Repository p)Source
data IdentifyRepo p Source
The status of a given directory: is it a darcs repository?
BadRepository String | looks like a repository with some error |
NonRepository String | safest guess |
GoodRepository (Repository p) |
revertRepositoryChanges :: RepoPatch p => Repository p -> IO ()Source
setTentativePending :: forall p. RepoPatch p => Repository p -> FL Prim -> IO ()Source
setTentativePending is basically unsafe. It overwrites the pending state with a new one, not related to the repository state.
withRecorded :: RepoPatch p => Repository p -> ((AbsolutePath -> IO a) -> IO a) -> (AbsolutePath -> IO a) -> IO aSource
readTentativeRepo :: RepoPatch p => Repository p -> IO (PatchSet p)Source
prefsUrl :: Repository p -> StringSource
makePatchLazy :: RepoPatch p => Repository p -> PatchInfoAnd p -> IO (PatchInfoAnd p)Source
withRepoLock :: [DarcsFlag] -> (forall p. RepoPatch p => Repository p -> IO a) -> IO aSource
withRepoReadLock :: [DarcsFlag] -> (forall p. RepoPatch p => Repository p -> IO a) -> IO aSource
withRepository :: [DarcsFlag] -> (forall p. RepoPatch p => Repository p -> IO a) -> IO aSource
withRepositoryDirectory :: forall a. [DarcsFlag] -> String -> (forall p. RepoPatch p => Repository p -> IO a) -> IO aSource
withGutsOf :: Repository p -> IO () -> IO ()Source
tentativelyAddPatch :: RepoPatch p => Repository p -> [DarcsFlag] -> PatchInfoAnd p -> IO (Repository p)Source
tentativelyRemovePatches :: RepoPatch p => Repository p -> [DarcsFlag] -> FL (PatchInfoAnd p) -> IO (Repository p)Source
tentativelyAddToPending :: forall p. RepoPatch p => Repository p -> [DarcsFlag] -> FL Prim -> IO ()Source
This fuction is unsafe because it accepts a patch that works on the tentative pending and we don't currently track the state of the tentative pending.
tentativelyAddPatch_ :: RepoPatch p => UpdatePristine -> Repository p -> [DarcsFlag] -> PatchInfoAnd p -> IO (Repository p)Source
tentativelyReplacePatches :: forall p. RepoPatch p => Repository p -> [DarcsFlag] -> FL (PatchInfoAnd p) -> IO (Repository p)Source
finalizeRepositoryChanges :: RepoPatch p => Repository p -> IO ()Source
unrevertUrl :: Repository p -> StringSource
applyToWorking :: Patchy p => Repository p1 -> [DarcsFlag] -> p -> IO (Repository p1)Source
createPristineDirectoryTree :: RepoPatch p => Repository p -> FilePath -> IO ()Source
createPartialsPristineDirectoryTree :: (FilePathLike fp, RepoPatch p) => Repository p -> [fp] -> FilePath -> IO ()Source
optimizeInventory :: RepoPatch p => Repository p -> IO ()Source
Writes out a fresh copy of the inventory that minimizes the amount of inventory that need be downloaded when people pull from the repository.
Specifically, it breaks up the inventory on the most recent tag. This speeds up most commands when run remotely, both because a smaller file needs to be transfered (only the most recent inventory). It also gives a guarantee that all the patches prior to a given tag are included in that tag, so less commutation and history traversal is needed. This latter issue can become very important in large repositories.
cleanRepository :: RepoPatch p => Repository p -> IO ()Source
getMarkedupFile :: RepoPatch p => Repository p -> PatchInfo -> FilePath -> IO MarkedUpFileSource
type SealedPatchSet p = Sealed (PatchSet p)Source
setScriptsExecutable :: IO ()Source
Sets scripts in or below the current directory executable. A script is any file that starts with the bytes '#!'. This is used sometimes for --set-scripts-executable, but at other times --set-scripts-executable is handled by the hunk patch case of applyFL.
getRepository :: RIO p (Repository p)Source
Similar to the ask
function of the MonadReader class.
This allows actions in the RIO monad to get the current
repository.
FIXME: Don't export this. If we don't export this
it makes it harder for arbitrary IO actions to access
the repository and hence our code is easier to audit.
testTentative :: RepoPatch p => Repository p -> IO ()Source
testRecorded :: RepoPatch p => Repository p -> IO ()Source
applyToTentativePristine :: (Effect q, Patchy q) => Repository p -> q -> IO ()Source
makeNewPending :: forall p. RepoPatch p => Repository p -> FL Prim -> IO ()Source