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