diff --git a/doctests.hs b/doctests.hs
--- a/doctests.hs
+++ b/doctests.hs
@@ -1,5 +1,24 @@
+{-# LANGUAGE OverloadedStrings #-}
+
 module Main where
 
+import Control.Applicative
+import System.Posix.Directory.Traversals
+
 import Test.DocTest
+import Test.HUnit
 
-main = doctest ["-isrc", "-XOverloadedStrings", "src/System/Posix/FilePath"]
+main = do
+    doctest
+      [ "-isrc"
+      , "-XOverloadedStrings"
+      , "src/System/Posix/FilePath"
+      ]
+    runTestTT unitTests
+
+unitTests :: Test
+unitTests = test
+    [ TestCase $ do
+        r <- (==) <$> allDirectoryContents "." <*> allDirectoryContents' "."
+        assertBool "allDirectoryContents == allDirectoryContents'" r
+    ]
diff --git a/posix-paths.cabal b/posix-paths.cabal
--- a/posix-paths.cabal
+++ b/posix-paths.cabal
@@ -1,9 +1,9 @@
 name:		posix-paths
-version:        0.1.1.0
+version:        0.1.1.1
 license:	BSD3
 license-file:	LICENSE
 maintainer:	jwlato@gmail.com
-bug-reports: http://hackage.haskell.org/trac/ghc/newticket?component=libraries/unix
+bug-reports: http://github.com/JohnLato/posix-paths/issues
 synopsis:	POSIX filepath/directory functionality
 category:       System
 description:
@@ -38,7 +38,8 @@
                         bytestring,
                         unix,
                         posix-paths,
-                        doctest >= 0.8
+                        doctest >= 0.8,
+                        HUnit
 
 benchmark bench.hs
   default-language: Haskell2010
diff --git a/src/System/Posix/Directory/Traversals.hs b/src/System/Posix/Directory/Traversals.hs
--- a/src/System/Posix/Directory/Traversals.hs
+++ b/src/System/Posix/Directory/Traversals.hs
@@ -70,13 +70,17 @@
 
 -- | Get all files from a directory and its subdirectories strictly.
 --
+--
+
 allDirectoryContents' :: RawFilePath -> IO [RawFilePath]
 allDirectoryContents' = fmap reverse . traverseDirectory (\acc fp -> return (fp:acc)) []
 -- this uses traverseDirectory because it's more efficient than forcing the
 -- lazy version.
 
--- recursively apply the 'action' to the parent directory and all
+-- | Recursively apply the 'action' to the parent directory and all
 -- files/subdirectories.
+--
+-- This function allows for memory-efficient traversals.
 traverseDirectory :: (s -> RawFilePath -> IO s) -> s -> RawFilePath -> IO s
 traverseDirectory act s0 topdir = bracket someOpenFunc Posix.closeFd toploop
   where