Update patch for 5e4adaecb

1 files changed, 6 insertions, 9 deletions

diff --git a/src/Hakyll/Preview/Poll.hs b/src/Hakyll/Preview/Poll.hs
index 65021db..36b057e 100644
--- a/src/Hakyll/Preview/Poll.hs
+++ b/src/Hakyll/Preview/Poll.hs
@@ -4,8 +4,6 @@ module Hakyll.Preview.Poll
 
 --------------------------------------------------------------------------------
 import           Filesystem.Path.CurrentOS (decodeString, encodeString)
-import           System.Directory          (getCurrentDirectory)
-import           System.FilePath           (makeRelative)
 import           System.FSNotify           (startManagerConf, watchTree,
                                             Event(..), WatchConfig(..))
 
@@ -21,17 +19,16 @@ watchUpdates :: Configuration -> IO () -> IO ()
 watchUpdates conf update = do
     _ <- update
     manager <- startManagerConf (Debounce 0.1)
-    workingDirectory <- getCurrentDirectory
-    watchTree manager path (predicate workingDirectory) $ const update
+    watchTree manager path (not . isRemove) update'
   where
     path = decodeString $ providerDirectory conf
-    predicate wDir evt
-        | isRemove evt = False
-        | otherwise = not $ shouldIgnoreFile conf (relativeEventPath wDir evt)
+    update' evt = do
+        ignore <- shouldIgnoreFile conf $ eventPath evt
+        if ignore then return () else update
 
 
-relativeEventPath :: FilePath -> Event -> FilePath
-relativeEventPath b evt = makeRelative b $ encodeString $ evtPath evt
+eventPath :: Event -> FilePath
+eventPath evt = encodeString $ evtPath evt
   where
     evtPath (Added p _) = p
     evtPath (Modified p _) = p