mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

improve api, removing IO

Browse source
This commit is contained in:
Joey Hess 2016-02-09 14:52:43 -04:00
parent c85b774b2e
commit 3f8f534646
Failed to extract signature
1 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
doc/design/adjusted_branches.mdwn
View file

@ -187,14 +187,22 @@ like this, at its most simple:
data FilterAction = UnchangedFile | UnlockFile | HideFile | RenameFile FilePath FilePath
applyFilter :: Filter -> FilePath -> Annex FilterAction
data FileInfo = FileInfo
{ originalBranchFile :: FileStatus
, worktreeFile :: Maybe FileStatus
, isContentPresent :: Bool
}
-- Look at current state of file and get the FilterAction that
data FileStatus = IsAnnexSymlink | IsAnnexPointer
applyFilter :: Filter -> FilePath -> FileInfo -> FilterAction
-- Look at the current state of file and get the FilterAction that
-- would have led to this state.
reverseFilter :: Filter -> FilePath -> Annex FilterAction
reverseFilter :: Filter -> FilePath -> FileInfo -> FilterAction
applyFilterAction :: FilePath -> FilterAction -> Annex Bool
-- Generate a version of the original commit with the filtering of
-- modified files reversed.
reverseFilterActions :: [(FilePath, FilterAction)] -> Git.Commit -> Annex Git.Commit
reverseFilterActions :: [(FilePath, FilterAction)] -> Git.Commit -> Git.Commit