From 5abc3d87e234c2f92b6c5481200d1f813ca2ce6f Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Wed, 23 Feb 2011 10:11:55 +0100
Subject: Add cabal flag for inotify

---
 src-interval/Hakyll/Web/Preview/Poll.hs | 36 +++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 src-interval/Hakyll/Web/Preview/Poll.hs

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

diff --git a/src-interval/Hakyll/Web/Preview/Poll.hs b/src-interval/Hakyll/Web/Preview/Poll.hs
new file mode 100644
index 0000000..ec6df0c
--- /dev/null
+++ b/src-interval/Hakyll/Web/Preview/Poll.hs
@@ -0,0 +1,36 @@
+-- | Interval-based implementation of preview polling, for the platforms which
+-- are not supported by inotify.
+--
+module Hakyll.Web.Preview.Poll
+    ( previewPoll
+    ) where
+
+import Control.Applicative ((<$>))
+import Control.Concurrent (threadDelay)
+import Control.Monad (when)
+import System.Time (getClockTime)
+import Data.Set (Set)
+import qualified Data.Set as S
+import System.Directory (getModificationTime)
+
+import Hakyll.Core.Configuration
+import Hakyll.Core.Identifier
+import Hakyll.Core.ResourceProvider
+
+-- | A preview thread that periodically recompiles the site.
+--
+previewPoll :: HakyllConfiguration  -- ^ Configuration
+            -> Set Resource         -- ^ Resources to watch
+            -> IO ()                -- ^ Action called when something changes
+            -> IO ()                -- ^ Can block forever
+previewPoll _ resources callback = do
+    let files = map (toFilePath . unResource) $ S.toList resources
+    time <- getClockTime
+    loop files time
+  where
+    delay = 1000000
+    loop files time = do
+        threadDelay delay
+        modified <- any (time <) <$> mapM getModificationTime files
+        when modified callback
+        loop files =<< getClockTime
-- 
cgit v1.2.3