Fix slash to underscore for static

2010-05-20 14:51:22 +03:00 · 2010-05-20 14:51:22 +03:00 · aa770f7622
commit aa770f7622
parent 8dc59bf113
1 changed files with 1 additions and 1 deletions
--- a/Yesod/Helpers/Static.hs
+++ b/Yesod/Helpers/Static.hs
@ -112,7 +112,7 @@ staticFiles fp = do
    replace '.' = '_'
    replace c = c
    go f = do
-        let name = mkName $ intercalate "/" $ map (map replace) f
+        let name = mkName $ intercalate "_" $ map (map replace) f
        f' <- lift f
        let sr = ConE $ mkName "StaticRoute"
        return