@@ -1,24 +1,29 @@
1+--------------------------------------------------------------------------------
12-- | Interval-based implementation of preview polling
2−--
33{-# LANGUAGE CPP #-}
4−module Hakyll.Web.Preview.Poll
4+module Hakyll.Preview.Poll
55 ( previewPoll
66 ) where
77
8−import Control.Applicative ((<$>))
9−import Control.Concurrent (threadDelay)
10−import Control.Monad (filterM)
8+
9+--------------------------------------------------------------------------------
10+import Control.Applicative ((<$>))
11+import Control.Concurrent (threadDelay)
12+import Control.Monad (filterM)
1113#if MIN_VERSION_directory(1,2,0)
12−import Data.Time (getCurrentTime)
14+import Data.Time (getCurrentTime)
1315#else
14−import System.Time (getClockTime)
16+import System.Time (getClockTime)
1517#endif
16−import System.Directory (getModificationTime, doesFileExist)
18+import System.Directory (doesFileExist, getModificationTime)
19+
20+
21+--------------------------------------------------------------------------------
22+import Hakyll.Core.Configuration
1723
18−import Hakyll.Core.Configuration
1924
25+--------------------------------------------------------------------------------
2026-- | A preview thread that periodically recompiles the site.
21−--
2227previewPoll :: Configuration -- ^ Configuration
2328 -> IO [FilePath] -- ^ Updating action
2429 -> IO () -- ^ Can block forever