Avoid infinite loop traversing incoming directory #96

snoyberg · May 17, 2015 · 85aecc2 · 85aecc2
1 parent 3f0286f
commit 85aecc2
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git a/ChangeLog.md b/ChangeLog.md
@@ -1,3 +1,7 @@
+## 1.4.0.1
+
+* Avoid infinite loop traversing incoming directory [#96](https://github.com/snoyberg/keter/issues/96)
+
 ## 1.4.0
 
 * Drop system-filepath

diff --git a/Keter/Main.hs b/Keter/Main.hs
@@ -186,7 +186,7 @@ listDirectoryTree fp = do
              listDirectoryTree fp1
            else
              return [fp1]
-           ) dir
+           ) (filter (\x -> x /= "." && x /= "..") dir)
 
 startListening :: KeterConfig -> HostMan.HostManager -> IO ()
 startListening KeterConfig {..} hostman = do

diff --git a/keter.cabal b/keter.cabal
@@ -1,5 +1,5 @@
 Name:                keter
-Version:             1.4.0
+Version:             1.4.0.1
 Synopsis:            Web application deployment manager, focusing on Haskell web frameworks
 Description:         Hackage documentation generation is not reliable. For up to date documentation, please see: <http://www.stackage.org/package/keter>.
 Homepage:            http://www.yesodweb.com/