This commit is contained in:
Joey Hess 2012-06-06 23:30:38 -04:00
parent c56812980c
commit d5de27ff40

View file

@ -59,16 +59,16 @@ start = notBareRepo $ do
putStrLn "(started)"
waitForTermination
return True
where
ignored ".git" = True
ignored ".gitignore" = True
ignored ".gitattributes" = True
ignored _ = False
#else
start = error "watch mode is so far only available on Linux"
#endif
ignored :: FilePath -> Bool
ignored ".git" = True
ignored ".gitignore" = True
ignored ".gitattributes" = True
ignored _ = False
{- Runs a handler, inside the Annex monad.
-
- Exceptions by the handlers are ignored, otherwise a whole watcher