summaryrefslogtreecommitdiff
path: root/Command/Watch.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-06-06 23:30:38 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-06-06 23:30:38 -0400
commitd5de27ff40544bfb4d526eebce5e698a5efe35d1 (patch)
treeb3a82e4f7cdf0964961efa579ac077996fe0c8f6 /Command/Watch.hs
parentc56812980c2676a9b78f57c3c5259985805df3cc (diff)
tweak
Diffstat (limited to 'Command/Watch.hs')
-rw-r--r--Command/Watch.hs12
1 files changed, 6 insertions, 6 deletions
diff --git a/Command/Watch.hs b/Command/Watch.hs
index b812691bf..046fca7d1 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