diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # dir-traverse
 
+## 0.2.2.1
+
+  * Bugfix
+
 ## 0.2.2.0
 
   * Add `getDirFiltered`
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.0
+version:         0.2.2.1
 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
@@ -23,7 +23,7 @@
 getDirFiltered :: (FilePath -> IO Bool) -> FilePath -> IO [FilePath]
 getDirFiltered p fp = do
     all' <- listDirectory fp
-    all'' <- filterM p (mkRel <$> all')
+    all'' <- fmap mkRel <$> filterM p all'
     dirs <- filterM doesDirectoryExist all''
     case dirs of
         [] -> pure all''