diff --git a/Command/Watch.hs b/Command/Watch.hs index b812691bf7..046fca7d14 100644 --- a/Command/Watch.hs +++ b/Command/Watch.hs @@ -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