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

Merge pull request #348 from meteficha/yesod-static-fix

Browse Source 
yesod-static: Correctly add the "etag" param to TH-generated routes.
This commit is contained in:
Greg Weber 2012-05-19 08:43:10 -07:00
commit 13c4e137a2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-static/Yesod/Static.hs
View File

@ -307,7 +307,7 @@ mkStaticFilesList fp fs routeConName makeHash = do
pack' <- [|pack|] pack' <- [|pack|]
qs <- if makeHash qs <- if makeHash
then do hash <- qRunIO $ base64md5File $ pathFromRawPieces fp f then do hash <- qRunIO $ base64md5File $ pathFromRawPieces fp f
[|[(pack $(lift hash), mempty)]|] [|[("etag" :: Text, pack $(lift hash))]|]
else return $ ListE [] else return $ ListE []
return return
[ SigD routeName $ ConT route [ SigD routeName $ ConT route