diff --git a/yesod-static/Yesod/Static.hs b/yesod-static/Yesod/Static.hs index 24df62c5..afe75859 100644 --- a/yesod-static/Yesod/Static.hs +++ b/yesod-static/Yesod/Static.hs @@ -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