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

Fix staticFiles

Browse Source
This commit is contained in:
Michael Snoyman 2011-04-10 21:55:27 +03:00
parent 3bff87656c
commit c1659239a9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Yesod/Helpers/Static.hs
View File

@ -59,7 +59,7 @@ import Data.Digest.Pure.MD5
import qualified Data.ByteString.Base64 import qualified Data.ByteString.Base64
import qualified Data.ByteString.Char8 as S8 import qualified Data.ByteString.Char8 as S8
import qualified Data.Serialize import qualified Data.Serialize
import Data.Text (Text) import Data.Text (Text, pack)
import Network.Wai.Application.Static import Network.Wai.Application.Static
( defaultMimeTypeByExt, StaticSettings (..), staticAppPieces ( defaultMimeTypeByExt, StaticSettings (..), staticAppPieces
@ -162,7 +162,7 @@ staticFiles fp = do
| isUpper x = toLower x : xs | isUpper x = toLower x : xs
| otherwise = str | otherwise = str
let name = mkName $ intercalate "_" $ map (adjust . map replace') f let name = mkName $ intercalate "_" $ map (adjust . map replace') f
f' <- lift f f' <- [|pack $(lift f)|]
let sr = ConE $ mkName "StaticRoute" let sr = ConE $ mkName "StaticRoute"
hash <- qRunIO $ fmap base64md5 $ L.readFile $ fp ++ '/' : intercalate "/" f hash <- qRunIO $ fmap base64md5 $ L.readFile $ fp ++ '/' : intercalate "/" f
let qs = ListE [TupE [LitE $ StringL hash, ListE []]] let qs = ListE [TupE [LitE $ StringL hash, ListE []]]