diff options
Diffstat (limited to 'Command/Smudge.hs')
| -rw-r--r-- | Command/Smudge.hs | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/Command/Smudge.hs b/Command/Smudge.hs index 746296321..9ce95d4ef 100644 --- a/Command/Smudge.hs +++ b/Command/Smudge.hs @@ -54,22 +54,23 @@ smudge file = do =<< catchMaybeIO (B.readFile content) stop --- Clean filter decides if a file should be stored in the annex, and --- outputs a pointer to its injested content. +-- Clean filter is fed file content on stdin, decides if a file +-- should be stored in the annex, and outputs a pointer to its +-- injested content. clean :: FilePath -> CommandStart clean file = do - ifM (shouldAnnex file) - ( do - k <- ingest file - updateAssociatedFiles k file - liftIO $ emitPointer k - , liftIO cat - ) + b <- liftIO $ B.hGetContents stdin + if isJust (parseLinkOrPointer b) + then liftIO $ B.hPut stdout b + else ifM (shouldAnnex file) + ( do + k <- ingest file + updateAssociatedFiles k file + liftIO $ emitPointer k + , liftIO $ B.hPut stdout b + ) stop -cat :: IO () -cat = B.hGetContents stdin >>= B.hPut stdout - shouldAnnex :: FilePath -> Annex Bool shouldAnnex file = do matcher <- largeFilesMatcher |