diff options
Diffstat (limited to 'src/WWWStaticus.hs')
| -rw-r--r-- | src/WWWStaticus.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |