From 08ad4709c0d3c166ecf88c53a7b9dcd696260869 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 16 Jun 2010 08:46:49 +0300
Subject: [PATCH] Replacing dash in static files

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

diff --git a/Yesod/Helpers/Static.hs b/Yesod/Helpers/Static.hs
index 74ff1ad0..fe4a283f 100644
--- a/Yesod/Helpers/Static.hs
+++ b/Yesod/Helpers/Static.hs
@@ -110,6 +110,7 @@ staticFiles fp = do
     concat `fmap` mapM go fs
   where
     replace' '.' = '_'
+    replace' '-' = '_'
     replace' c = c
     go f = do
         let name = mkName $ intercalate "_" $ map (map replace') f