summaryrefslogtreecommitdiff
path: root/src-interval/Hakyll/Web/Preview
diff options
context:
space:
mode:
authorJasper Van der Jeugt <jaspervdj@gmail.com>2011-04-12 10:09:03 +0200
committerJasper Van der Jeugt <jaspervdj@gmail.com>2011-04-12 10:09:03 +0200
commitb37da38d3911bbc8381a39fe526e69599d9ddcf1 (patch)
treed27f2dbf8860ddbdf0d791aff77dd8504ba6da92 /src-interval/Hakyll/Web/Preview
parent0a3cd37cc9635d2d1e6696bff91dcd37e81bd202 (diff)
downloadhakyll-b37da38d3911bbc8381a39fe526e69599d9ddcf1.tar.gz
Major refactoring of identifiers/resources/groups
Diffstat (limited to 'src-interval/Hakyll/Web/Preview')
-rw-r--r--src-interval/Hakyll/Web/Preview/Poll.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src-interval/Hakyll/Web/Preview/Poll.hs b/src-interval/Hakyll/Web/Preview/Poll.hs
index 7a11b6c..0c9f771 100644
--- a/src-interval/Hakyll/Web/Preview/Poll.hs
+++ b/src-interval/Hakyll/Web/Preview/Poll.hs
@@ -14,7 +14,6 @@ import qualified Data.Set as S
import System.Directory (getModificationTime, doesFileExist)
import Hakyll.Core.Configuration
-import Hakyll.Core.Identifier
import Hakyll.Core.Resource
-- | A preview thread that periodically recompiles the site.
@@ -24,7 +23,7 @@ previewPoll :: HakyllConfiguration -- ^ Configuration
-> IO () -- ^ Action called when something changes
-> IO () -- ^ Can block forever
previewPoll _ resources callback = do
- let files = map (toFilePath . unResource) $ S.toList resources
+ let files = map unResource $ S.toList resources
time <- getClockTime
loop files time
where