packages feed

fswatch 0.1.0.0 → 0.1.0.1

raw patch · 4 files changed

+11/−28 lines, 4 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- System.FSWatch: compl :: CompletionFunc IO
- System.FSWatch: event2PE :: Event -> PE
- System.FSWatch: list :: DB -> InputT IO ()
- System.FSWatch: optParser :: Parser Opts
- System.FSWatch: parseInt :: String -> Maybe Int
- System.FSWatch: printP :: P -> String -> InputT IO ()
- System.FSWatch: printerOut :: State -> MVar PrintFormat -> MVar [PE] -> IO ()
- System.FSWatch: startPrinter :: State -> MVar PrintFormat -> Chan PE -> IO (IO ())
- System.FSWatch: stop :: P -> String -> DB -> InputT IO ()
- System.FSWatch: watch :: P -> String -> InputT IO WatchManager

Files

fswatch.cabal view
@@ -1,6 +1,6 @@ 
 name:                fswatch
-version:             0.1.0.0
+version:             0.1.0.1
 synopsis:            File System watching tool with cli and slave functionalities.
 description:         File System watching tool with cli and slave lib (with os process) functionalities.
 category:            Filesystem
src/System/FSWatch.hs view
@@ -3,7 +3,7 @@            , RecordWildCards
            #-}
 
-module System.FSWatch where
+module System.FSWatch (watchMain, getOpts) where
 
 import Data.List
 import Data.Semigroup ((<>))
@@ -11,13 +11,10 @@ import Control.Monad
 import Control.Monad.IO.Class
 import Control.Concurrent
-import Control.Concurrent.Chan
-import Control.Concurrent.MVar
 import Options.Applicative hiding (defaultPrefs)
 
 import System.Console.Haskeline
 import System.Console.Haskeline.History
-import System.Console.Haskeline.Completion
 import System.Directory
 import System.FSNotify
 import System.IO
@@ -58,8 +55,8 @@     printFormat <- newMVar MultiRecord
     buffering <- newMVar $ case (oFixBufferMode opts, oDelayedBufferMode opts) of
       (0,0) -> NoNotifyBuffer
-      (i,0) -> FixTimeBuffer i
       (0,i) -> DelayedBuffer i
+      (i,_) -> FixTimeBuffer i
     mode <- newMVar CLI
     case oSlave opts of
         True -> do
src/System/FSWatch/Repr.hs view
@@ -1,20 +1,10 @@ module System.FSWatch.Repr where
 
-import Data.List
 
-import Control.Monad
-import Control.Monad.IO.Class
 import Control.Concurrent
-import Control.Concurrent.Chan
-import Control.Concurrent.MVar
 
-import System.Console.Haskeline
-import System.Console.Haskeline.History
-import System.Console.Haskeline.Completion
-import System.Directory
 import System.FSNotify
 import System.IO
-import System.Environment
 import System.Process
src/System/FSWatch/Slave.hs view
@@ -4,23 +4,19 @@            , RecordWildCards
            #-}
 
-module System.FSWatch.Slave where
-
-import Data.List
-import Data.Semigroup ((<>))
+module System.FSWatch.Slave ( createWatchProcess
+                            , createWatchProcessWithListener
+                            , createWatchProcessWL
+                            , watch
+                            , stop
+                            , getNotifies
+                            , waitNotifies
+                            ) where
 
 import Control.Monad
 import Control.Monad.IO.Class
 import Control.Concurrent
-import Control.Concurrent.Chan
-import Control.Concurrent.MVar
-import Options.Applicative hiding (defaultPrefs)
 
-import System.Console.Haskeline
-import System.Console.Haskeline.History
-import System.Console.Haskeline.Completion
-import System.Directory
-import System.FSNotify
 import System.IO
 import System.Process