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

Fix slash to underscore for static

Browse Source
This commit is contained in:
Michael Snoyman 2010-05-20 14:51:22 +03:00
parent 8dc59bf113
commit aa770f7622
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Yesod/Helpers/Static.hs
View File

@ -112,7 +112,7 @@ staticFiles fp = do
replace '.' = '_' replace '.' = '_'
replace c = c replace c = c
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
let sr = ConE $ mkName "StaticRoute" let sr = ConE $ mkName "StaticRoute"
return return