build watch on non-linux, just don't do anything

This commit is contained in:
Joey Hess 2012-06-06 22:49:32 -04:00
parent c5b11561f0
commit b8f85f7a82
2 changed files with 10 additions and 3 deletions

View file

@ -5,6 +5,7 @@
- Licensed under the GNU GPL version 3 or higher.
-}
{-# LANGUAGE CPP #-}
{-# LANGUAGE BangPatterns #-}
module Command.Watch where
@ -25,9 +26,12 @@ import qualified Backend
import Annex.Content
import Control.Exception as E
import System.INotify
import Control.Concurrent.MVar
#if defined linux_HOST_OS
import System.INotify
#endif
def :: [Command]
def = [command "watch" paramPaths seek "watch for changes"]
@ -35,6 +39,7 @@ seek :: [CommandSeek]
seek = [withNothing start]
start :: CommandStart
#if defined linux_HOST_OS
start = notBareRepo $ do
showStart "watch" "."
showAction "scanning"
@ -56,6 +61,10 @@ start = notBareRepo $ do
ignored ".gitattributes" = True
ignored _ = False
#else
start = error "watch mode is so far only available on Linux"
#endif
{- Runs a handler, inside the Annex monad.
-
- Exceptions by the handlers are ignored, otherwise a whole watcher

View file

@ -5,8 +5,6 @@
- Licensed under the GNU GPL version 3 or higher.
-}
{-# LANGUAGE CPP #-}
module Utility.Inotify where
import Common hiding (isDirectory)