diff --git a/delta.cabal b/delta.cabal
--- a/delta.cabal
+++ b/delta.cabal
@@ -10,7 +10,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.1.0.0
+version:             0.1.0.1
 
 -- A short (one-line) description of the package.
 synopsis:            A library for detecting file changes
diff --git a/src/System/Delta.hs b/src/System/Delta.hs
--- a/src/System/Delta.hs
+++ b/src/System/Delta.hs
@@ -13,12 +13,9 @@
 import System.Delta.Callback
 
 -- | Build a file watcher
-deltaDir :: (FileWatcher a) => FilePath -> IO a
-deltaDir path = defaultWatcher path >>= return . watcherId
+deltaDir :: FilePath -> IO PollWatcher
+deltaDir path = defaultWatcher path
 
 -- | Build a file watcher that allows to register callbacks
-deltaDirWithCallbacks :: (FileWatcher a) => FilePath -> IO (CallbackWatcher a)
+deltaDirWithCallbacks :: FilePath -> IO (CallbackWatcher PollWatcher)
 deltaDirWithCallbacks path = deltaDir path >>= withCallbacks
-
-watcherId :: (FileWatcher a) => a -> a
-watcherId a = a
diff --git a/src/System/Delta/Poll.hs b/src/System/Delta/Poll.hs
--- a/src/System/Delta/Poll.hs
+++ b/src/System/Delta/Poll.hs
@@ -25,7 +25,7 @@
                      ThreadId
 
 instance FileWatcher PollWatcher where
-  defaultWatcher = createPollWatcher 15
+  defaultWatcher = createPollWatcher 3
   changedFiles (PollWatcher _ e _ _ _) = e
   newFiles     (PollWatcher _ _ e _ _) = e
   deletedFiles (PollWatcher _ _ _ e _) = e
diff --git a/src/delta-cli/Main.hs b/src/delta-cli/Main.hs
--- a/src/delta-cli/Main.hs
+++ b/src/delta-cli/Main.hs
@@ -10,7 +10,7 @@
   args <- getArgs
   case args of
     [path] -> do
-                watcher <- createPollWatcher 1 path >>= withCallbacks
+                watcher <- deltaDirWithCallbacks path
                 withNewCallback watcher (\x -> putStrLn $ "new:\t" ++ x)
                 withDeleteCallback watcher (\x -> putStrLn $ "del:\t" ++ x)
                 withChangedCallback watcher (\(FileInfo(x,_,_)) ->