haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

staticFiles ignores tmp

Browse Source
This commit is contained in:
Michael Snoyman 2010-10-24 21:33:36 +02:00
parent 17cb10c312
commit 2fef1766f4
3 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Yesod/Helpers/Static.hs
View File

@ -127,6 +127,7 @@ getStaticRoute fp' = do
notHidden :: FilePath -> Bool notHidden :: FilePath -> Bool
notHidden ('.':_) = False notHidden ('.':_) = False
notHidden "tmp" = False
notHidden _ = True notHidden _ = True
getFileList :: FilePath -> IO [[String]] getFileList :: FilePath -> IO [[String]]

1
Yesod/Yesod.hs
View File

@ -36,6 +36,7 @@ module Yesod.Yesod
import Yesod.Content hiding (testSuite) import Yesod.Content hiding (testSuite)
import Yesod.Json hiding (testSuite) import Yesod.Json hiding (testSuite)
import Yesod.Handler hiding (testSuite) import Yesod.Handler hiding (testSuite)
import qualified Data.ByteString.UTF8 as BSU
#else #else
import Yesod.Content import Yesod.Content
import Yesod.Json import Yesod.Json

0
test/tmp/ignored Normal file
View File