diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,6 +1,6 @@
 # dir-traverse
 
-## 0.2.2.1
+## 0.2.2.2
 
   * Bugfix
 
diff --git a/dir-traverse.cabal b/dir-traverse.cabal
--- a/dir-traverse.cabal
+++ b/dir-traverse.cabal
@@ -1,6 +1,6 @@
 cabal-version:   1.18
 name:            dir-traverse
-version:         0.2.2.1
+version:         0.2.2.2
 license:         BSD3
 license-file:    LICENSE
 copyright:       Copyright: (c) 2019 Vanessa McHale
diff --git a/src/System/Directory/Recursive.hs b/src/System/Directory/Recursive.hs
--- a/src/System/Directory/Recursive.hs
+++ b/src/System/Directory/Recursive.hs
@@ -13,22 +13,24 @@
 
 -- | @since 0.2.1.0
 getSubdirsRecursive :: FilePath -> IO [FilePath]
-getSubdirsRecursive = getDirFiltered (const (pure True))
+getSubdirsRecursive = getDirFiltered doesDirectoryExist
 
 getDirRecursive :: FilePath -> IO [FilePath]
-getDirRecursive = getDirFiltered doesDirectoryExist
+getDirRecursive = getDirFiltered (const (pure True))
 
 {-# INLINE getDirFiltered #-}
 -- | @since 0.2.2.0
-getDirFiltered :: (FilePath -> IO Bool) -> FilePath -> IO [FilePath]
+getDirFiltered :: (FilePath -> IO Bool) -- ^ Filepath filter
+               -> FilePath
+               -> IO [FilePath]
 getDirFiltered p fp = do
     all' <- listDirectory fp
-    all'' <- fmap mkRel <$> filterM p all'
+    all'' <- filterM p (mkRel <$> all')
     dirs <- filterM doesDirectoryExist all''
     case dirs of
         [] -> pure all''
         ds -> do
-            next <- foldMapA getDirRecursive ds
+            next <- foldMapA (getDirFiltered p) ds
             pure $ all'' ++ next
 
     where mkRel = (fp </>)