diff --git a/hakyll.cabal b/hakyll.cabal
--- a/hakyll.cabal
+++ b/hakyll.cabal
@@ -1,5 +1,5 @@
 Name:    hakyll
-Version: 4.7.2.0
+Version: 4.7.2.1
 
 Synopsis: A static website compiler library
 Description:
@@ -171,7 +171,7 @@
     Build-depends:
       snap-core       >= 0.6   && < 0.10,
       snap-server     >= 0.6   && < 0.10,
-      fsnotify        >= 0.1   && < 0.2,
+      fsnotify        >= 0.2   && < 0.3,
       system-filepath >= 0.4.6 && <= 0.5
     Cpp-options:
       -DPREVIEW_SERVER
@@ -181,7 +181,7 @@
 
   If flag(watchServer)
     Build-depends:
-      fsnotify        >= 0.1   && < 0.2,
+      fsnotify        >= 0.2   && < 0.3,
       system-filepath >= 0.4.6 && <= 0.5
     Cpp-options:
       -DWATCH_SERVER
@@ -256,7 +256,7 @@
     Build-depends:
       snap-core       >= 0.6   && < 0.10,
       snap-server     >= 0.6   && < 0.10,
-      fsnotify        >= 0.1   && < 0.2,
+      fsnotify        >= 0.2   && < 0.3,
       system-filepath >= 0.4.6 && <= 0.5
     Cpp-options:
       -DPREVIEW_SERVER
@@ -266,7 +266,7 @@
 
   If flag(watchServer)
     Build-depends:
-      fsnotify        >= 0.1   && < 0.2,
+      fsnotify        >= 0.2   && < 0.3,
       system-filepath >= 0.4.6 && <= 0.5
     Cpp-options:
       -DWATCH_SERVER
diff --git a/src/Hakyll/Preview/Poll.hs b/src/Hakyll/Preview/Poll.hs
--- a/src/Hakyll/Preview/Poll.hs
+++ b/src/Hakyll/Preview/Poll.hs
@@ -12,7 +12,6 @@
 import           Control.Exception              (AsyncException, fromException,
                                                  handle, throw)
 import           Control.Monad                  (forever, void, when)
-import           Filesystem.Path.CurrentOS      (decodeString, encodeString)
 import           System.Directory               (canonicalizePath)
 import           System.FilePath                (pathSeparators)
 import           System.FSNotify                (Event (..), startManager,
@@ -41,7 +40,7 @@
 -- a site as soon as any changes occur
 watchUpdates :: Configuration -> IO Pattern -> IO ()
 watchUpdates conf update = do
-    let providerDir = decodeString $ providerDirectory conf
+    let providerDir = providerDirectory conf
     shouldBuild     <- newEmptyMVar
     pattern         <- update
     fullProviderDir <- canonicalizePath $ providerDirectory conf
@@ -66,7 +65,7 @@
             (\e -> case fromException e of
                 Nothing    -> putStrLn (show e)
                 Just async -> throw (async :: AsyncException))
-            (update' event $ encodeString providerDir)
+            (update' event providerDir)
 
     -- Send an event whenever something occurs so that the thread described
     -- above will do a build.
@@ -107,7 +106,7 @@
 
 --------------------------------------------------------------------------------
 eventPath :: Event -> FilePath
-eventPath evt = encodeString $ evtPath evt
+eventPath evt = evtPath evt
   where
     evtPath (Added p _)    = p
     evtPath (Modified p _) = p