diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # par-traverse
 
+## 0.2.0.0
+
+  * Add filter for descending into directories
+
 ## 0.1.0.0
 
 Initial release
diff --git a/par-traverse.cabal b/par-traverse.cabal
--- a/par-traverse.cabal
+++ b/par-traverse.cabal
@@ -1,6 +1,6 @@
 cabal-version: 1.18
 name: par-traverse
-version: 0.1.0.0
+version: 0.2.0.0
 license: BSD3
 license-file: LICENSE
 copyright: Copyright: (c) 2019 Vanessa McHale
diff --git a/src/System/Directory/Parallel.hs b/src/System/Directory/Parallel.hs
--- a/src/System/Directory/Parallel.hs
+++ b/src/System/Directory/Parallel.hs
@@ -18,9 +18,10 @@
 
 parTraverse :: (FilePath -> IO ()) -- ^ Action to execute on files
             -> (FilePath -> IO Bool) -- ^ Filter on files
+            -> (FilePath -> IO Bool) -- ^ Filter on directories
             -> [FilePath] -- ^ Starting directories
             -> IO ()
-parTraverse act fileP dirs = do
+parTraverse act fileP dirP dirs = do
     ncpu <- getNumCapabilities
     withPool ncpu $ \pool ->
         parallel_ pool $ fmap (loopPool pool) dirs
@@ -29,5 +30,6 @@
           loopPool pool fp = do
                 all' <- fmap (fp </>) <$> listDirectory fp
                 (dirs', files) <- partitionM doesDirectoryExist all'
+                dirs'' <- filterM dirP dirs'
                 files' <- filterM fileP files
-                parallel_ pool (fmap act files' ++ fmap (loopPool pool) dirs')
+                parallel_ pool (fmap act files' ++ fmap (loopPool pool) dirs'')