From aa770f7622b6578e7b53de6f0983d85dc68128a3 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 20 May 2010 14:51:22 +0300
Subject: [PATCH] Fix slash to underscore for static

---
 Yesod/Helpers/Static.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Yesod/Helpers/Static.hs b/Yesod/Helpers/Static.hs
index b588dc98..e08815dc 100644
--- 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