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

comments

Browse source
This commit is contained in:
Joey Hess 2015-12-04 16:46:00 -04:00
parent e7f75b079d
commit e8ca01cbc0
Failed to extract signature
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Command/Smudge.hs
View file

@ -39,6 +39,8 @@ seek :: SmudgeOptions -> CommandSeek
seek o = commandAction $ seek o = commandAction $
(if cleanOption o then clean else smudge) (smudgeFile o) (if cleanOption o then clean else smudge) (smudgeFile o)
-- Smudge filter is fed git file content, and if it's a pointer, should
-- emit the annex object content.
smudge :: FilePath -> CommandStart smudge :: FilePath -> CommandStart
smudge _file = do smudge _file = do
liftIO $ fileEncoding stdin liftIO $ fileEncoding stdin
@ -53,6 +55,8 @@ smudge _file = do
=<< catchMaybeIO (B.readFile content) =<< catchMaybeIO (B.readFile content)
stop stop
-- Clean filter decides if a file should be stored in the annex, and
-- outputs a pointer to its injested content.
clean :: FilePath -> CommandStart clean :: FilePath -> CommandStart
clean file = do clean file = do
ifM (shouldAnnex file) ifM (shouldAnnex file)