From 2fef1766f4497f7b623bfb9b38058788ad58576d Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 24 Oct 2010 21:33:36 +0200
Subject: [PATCH] staticFiles ignores tmp

---
 Yesod/Helpers/Static.hs | 1 +
 Yesod/Yesod.hs          | 1 +
 test/tmp/ignored        | 0
 3 files changed, 2 insertions(+)
 create mode 100644 test/tmp/ignored

diff --git a/Yesod/Helpers/Static.hs b/Yesod/Helpers/Static.hs
index 20bd19db..acd2a70b 100644
--- a/Yesod/Helpers/Static.hs
+++ b/Yesod/Helpers/Static.hs
@@ -127,6 +127,7 @@ getStaticRoute fp' = do
 
 notHidden :: FilePath -> Bool
 notHidden ('.':_) = False
+notHidden "tmp" = False
 notHidden _ = True
 
 getFileList :: FilePath -> IO [[String]]
diff --git a/Yesod/Yesod.hs b/Yesod/Yesod.hs
index c252c297..32b72431 100644
--- a/Yesod/Yesod.hs
+++ b/Yesod/Yesod.hs
@@ -36,6 +36,7 @@ module Yesod.Yesod
 import Yesod.Content hiding (testSuite)
 import Yesod.Json hiding (testSuite)
 import Yesod.Handler hiding (testSuite)
+import qualified Data.ByteString.UTF8 as BSU
 #else
 import Yesod.Content
 import Yesod.Json
diff --git a/test/tmp/ignored b/test/tmp/ignored
new file mode 100644
index 00000000..e69de29b