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

Replacing dash in static files

Browse Source
This commit is contained in:
Michael Snoyman 2010-06-16 08:46:49 +03:00
parent 8101113505
commit 08ad4709c0
1 changed files with 1 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

@ -110,6 +110,7 @@ staticFiles fp = do
concat `fmap` mapM go fs concat `fmap` mapM go fs
where where
replace' '.' = '_' 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