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

yesod-static: Correctly add the "etag" param to TH-generated routes.

Browse Source 
The wai-app-static package expects the etag parameter to be
passed in the form of

  /...?etag=XXXX

but yesod-static was passing

  /...?XXXX

This commit fixes this bug.
This commit is contained in:
Felipe Lessa 2012-05-17 09:59:17 -03:00
parent ef0a7f0518
commit a1203297b9
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|]
qs <- if makeHash
then do hash <- qRunIO $ base64md5File $ pathFromRawPieces fp f
[|[(pack $(lift hash), mempty)]|]
[|[("etag" :: Text, pack $(lift hash))]|]
else return $ ListE []
return
[ SigD routeName $ ConT route