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