diff --git a/reanimate.cabal b/reanimate.cabal
--- a/reanimate.cabal
+++ b/reanimate.cabal
@@ -3,7 +3,7 @@
 --  see http://haskell.org/cabal/users-guide/
 
 name:                reanimate
-version:             0.2.0.0
+version:             0.2.0.1
 -- synopsis:
 -- description:
 license:             PublicDomain
diff --git a/src/Reanimate.hs b/src/Reanimate.hs
--- a/src/Reanimate.hs
+++ b/src/Reanimate.hs
@@ -21,7 +21,7 @@
     --   * This viewer listens for changes to the source file and recompiles the
     --     code automatically as needed.
     --   * Animations are rendered with increasing fidelity until the frame
-    --     rate eaches 60 fps.
+    --     rate reaches 60 fps.
     --   * Key commands for pausing, frame stepping, forward/rewind.
     --     To pause press SPACE, to move -1\/+1\/-10\/+10 frames use LEFT\/RIGHT\/DOWN\/UP arrow keys.
     reanimate,
diff --git a/src/Reanimate/Scene.hs b/src/Reanimate/Scene.hs
--- a/src/Reanimate/Scene.hs
+++ b/src/Reanimate/Scene.hs
@@ -177,7 +177,7 @@
 
 -- | Wait until all forked and sequential animations have finished.
 --
---   Examples:
+--   Example:
 --
 --   > do waitOn $ fork $ play drawBox
 --   >    play drawCircle
diff --git a/test/UnitTests.hs b/test/UnitTests.hs
--- a/test/UnitTests.hs
+++ b/test/UnitTests.hs
@@ -70,18 +70,22 @@
 
 compileVideoFolder :: FilePath -> IO TestTree
 compileVideoFolder path = do
-  files <- sort <$> getDirectoryContents path
-  return $ testGroup "videos"
-    [ testCase dir $ do
-        (ret, _stdout, err) <- readProcessWithExitCode "stack" (["ghc","--", "-i"++path</>dir, fullPath] ++ ghcOpts) ""
-        _ <- evaluate (length err)
-        case ret of
-          ExitFailure{} -> assertFailure $ "Failed to compile:\n" ++ err
-          ExitSuccess   -> return ()
-    | dir <- files
-    , let fullPath = path </> dir </> dir <.> "hs"
-    , dir /= "." && dir /= ".."
-    ]
+  exist <- doesDirectoryExist path
+  if exist
+    then do
+      files <- sort <$> getDirectoryContents path
+      return $ testGroup "videos"
+        [ testCase dir $ do
+            (ret, _stdout, err) <- readProcessWithExitCode "stack" (["ghc","--", "-i"++path</>dir, fullPath] ++ ghcOpts) ""
+            _ <- evaluate (length err)
+            case ret of
+              ExitFailure{} -> assertFailure $ "Failed to compile:\n" ++ err
+              ExitSuccess   -> return ()
+        | dir <- files
+        , let fullPath = path </> dir </> dir <.> "hs"
+        , dir /= "." && dir /= ".."
+        ]
+    else return $ testGroup "videos" []
   where
     ghcOpts = ["-fno-code", "-O0"]