cleaning up in progress

1 files changed, 2 insertions, 1 deletions

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'.