From b37da38d3911bbc8381a39fe526e69599d9ddcf1 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Tue, 12 Apr 2011 10:09:03 +0200
Subject: Major refactoring of identifiers/resources/groups

---
 src-inotify/Hakyll/Web/Preview/Poll.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src-inotify/Hakyll/Web')

diff --git a/src-inotify/Hakyll/Web/Preview/Poll.hs b/src-inotify/Hakyll/Web/Preview/Poll.hs
index 2e028cc..0c27f32 100644
--- a/src-inotify/Hakyll/Web/Preview/Poll.hs
+++ b/src-inotify/Hakyll/Web/Preview/Poll.hs
@@ -14,7 +14,6 @@ import System.INotify
 
 import Hakyll.Core.Configuration
 import Hakyll.Core.Resource
-import Hakyll.Core.Identifier
 
 -- | Calls the given callback when the directory tree changes
 --
@@ -27,7 +26,7 @@ previewPoll _ resources callback = do
     inotify <- initINotify
 
     let -- A set of file paths
-        paths = S.map (toFilePath . unResource) resources
+        paths = S.map unResource resources
 
         -- A list of directories. Run it through a set so we have every
         -- directory only once.
-- 
cgit v1.2.3