yogsototh/hakyll
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make sure files exist before checking mod. time

Browse source
This commit is contained in:
Jasper Van der Jeugt 2011-04-08 13:31:03 +02:00
parent 3e03730666
commit e4545f9c9e
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src-interval/Hakyll/Web/Preview/Poll.hs
View file

@ -7,11 +7,11 @@ module Hakyll.Web.Preview.Poll
import Control.Applicative ((<$>))
import Control.Concurrent (threadDelay)
import Control.Monad (when)
import Control.Monad (when, filterM)
import System.Time (getClockTime)
import Data.Set (Set)
import qualified Data.Set as S
import System.Directory (getModificationTime)
import System.Directory (getModificationTime, doesFileExist)
import Hakyll.Core.Configuration
import Hakyll.Core.Identifier
@ -31,6 +31,7 @@ previewPoll _ resources callback = do
delay = 1000000
loop files time = do
threadDelay delay
modified <- any (time <) <$> mapM getModificationTime files
when modified callback
loop files =<< getClockTime
files' <- filterM doesFileExist files
modified <- any (time <) <$> mapM getModificationTime files'
when (modified || files' /= files) callback
loop files' =<< getClockTime