summaryrefslogtreecommitdiff
path: root/Command/Watch.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-06-06 15:50:12 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-06-06 15:50:12 -0400
commitdb8effb8f3e861c61bc4c640d712688a8ed342e1 (patch)
treeb448bd75c212620f43f01a819457bfe7f6e85d14 /Command/Watch.hs
parentb819f644ad00c5ad13ba5b249d3e127fd59d8694 (diff)
ignore .gitignore and .gitattributes
Diffstat (limited to 'Command/Watch.hs')
-rw-r--r--Command/Watch.hs7
1 files changed, 5 insertions, 2 deletions
diff --git a/Command/Watch.hs b/Command/Watch.hs
index 7b714ac18..d6f77b6ae 100644
--- a/Command/Watch.hs
+++ b/Command/Watch.hs
@@ -43,14 +43,17 @@ start = notBareRepo $ do
mvar <- liftIO $ newMVar state
next $ next $ liftIO $ withINotify $ \i -> do
let hook a = Just $ runAnnex mvar a
- watchDir i "." (not . pruned)
+ watchDir i "." (ignored . takeFileName)
(hook onAdd) (hook onAddSymlink)
(hook onDel) (hook onDelDir)
putStrLn "(started)"
waitForTermination
return True
where
- pruned dir = takeFileName dir /= ".git"
+ ignored ".git" = True
+ ignored ".gitignore" = True
+ ignored ".gitattributes" = True
+ ignored _ = False
{- Runs a handler, inside the Annex monad.
-