diff --git a/dirtree.cabal b/dirtree.cabal
--- a/dirtree.cabal
+++ b/dirtree.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: af2392fd0d2b2978caaee80e8994f8254986e75b5c1113b4016f71255f20c7f7
+-- hash: 04b2faaa60c67c8e41c9199e27a349c490f89680aaacffd35aa25967f4984de0
 
 name:           dirtree
-version:        0.1.0
+version:        0.1.1
 synopsis:       A small library for working with directories.
 description:    A small library for loading and building directories as trees.
 category:       System
diff --git a/src/System/DirTree.hs b/src/System/DirTree.hs
--- a/src/System/DirTree.hs
+++ b/src/System/DirTree.hs
@@ -223,6 +223,7 @@
 -- | Check a filepath for Type, throws an IOException if path does not exist.
 getFileType :: FilePath -> IO FileType
 getFileType fp =
+  -- TODO: Throw a resonable exception if the file does not exist.
   pathIsSymbolicLink fp >>= \case
   True ->
     return $ File (Symlink ())
diff --git a/test/System/DirTreeSpec.hs b/test/System/DirTreeSpec.hs
--- a/test/System/DirTreeSpec.hs
+++ b/test/System/DirTreeSpec.hs
@@ -12,6 +12,10 @@
 
 spec :: Spec
 spec = do
+  possibleSpec
+
+possibleSpec :: Spec
+possibleSpec = do 
   describe "getFileType" $ do
     it "should find a directory" $ do
       getFileType "test/data" `shouldReturn` Directory ()