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

Blacklist -> whitelist for staticFiles

Browse Source
This commit is contained in:
Michael Snoyman 2010-11-21 20:21:48 +02:00
parent cc09c071a6
commit 967ad7ec80
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Yesod/Helpers/Static.hs
View File

@ -153,9 +153,11 @@ staticFiles fp = do
fs <- qRunIO $ getFileList fp fs <- qRunIO $ getFileList fp
concat `fmap` mapM go fs concat `fmap` mapM go fs
where where
replace' '.' = '_' replace' c
replace' '-' = '_' | 'A' <= c && c <= 'Z' = c
replace' c = c | 'a' <= c && c <= 'z' = c
| '0' <= c && c <= '9' = c
| otherwise = '_'
go f = do go f = do
let name = mkName $ intercalate "_" $ map (map replace') f let name = mkName $ intercalate "_" $ map (map replace') f
f' <- lift f f' <- lift f

2
yesod.cabal
View File

@ -1,5 +1,5 @@
name: yesod name: yesod
version: 0.6.3 version: 0.6.3.1
license: BSD3 license: BSD3
license-file: LICENSE license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com> author: Michael Snoyman <michael@snoyman.com>