From e4fdf5ac751273bcea58beaafb7d7e98f3a93b85 Mon Sep 17 00:00:00 2001 From: Miguel Date: Sun, 17 Feb 2019 11:59:50 +0100 Subject: cleaning up in progress --- src/WWWStaticus.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/WWWStaticus.hs') diff --git a/src/WWWStaticus.hs b/src/WWWStaticus.hs index 01485e4..cd9e454 100644 --- a/src/WWWStaticus.hs +++ b/src/WWWStaticus.hs @@ -17,6 +17,7 @@ import System.Directory import Control.Monad import Data.Tree import Data.Maybe +import Data.List -- |Runs WWWStaticus given an input and an output directory and a list of -- plugins. This traverses 'inp' recursively and runs all the plugins @@ -55,7 +56,7 @@ trvDirTree fp f = unfoldTreeM unf fp >>= sequence_ -- |get list of subdirectories getDirList :: FilePath -> IO [FilePath] -getDirList d = map ((d++"/")++) <$> listDirectory d +getDirList d = filter (not.isPrefixOf ".") <$> map ((d++"/")++) <$> listDirectory d >>= filterM doesDirectoryExist -- |run plugins in a single directory 'path'. -- cgit v1.2.3