From 96a8dfc44685c69c35264cd95af83d2c2c02220f Mon Sep 17 00:00:00 2001 From: Miguel Date: Wed, 27 Feb 2019 13:04:28 +0100 Subject: added timestamp check, to refresh only when required --- src/WWWStaticus.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/WWWStaticus.hs') diff --git a/src/WWWStaticus.hs b/src/WWWStaticus.hs index d5205f5..4259964 100644 --- a/src/WWWStaticus.hs +++ b/src/WWWStaticus.hs @@ -65,7 +65,7 @@ getDirList d = map ((d++"/")++) <$> filter (not.isPrefixOf ".") <$> listDirector -- might rely on this runPlugins::[StaticusPlugin]->FilePath->FilePath->FilePath->FilePath->IO() runPlugins plug root dir_out dir_in path = foldlM f init plug >> return () - where f m (StaticusPlugin name run runIO) = runIO m >>= return.run + where f m (StaticusPlugin name run runIO) = if M.lookup "abort" m == Nothing then runIO m >>= return.run else return m init= M.fromList [("path",path) ,("dir_in",dir_in) ,("dir_out",dir_out) -- cgit v1.2.3