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

Incomplete strict hash code

Browse Source
This commit is contained in:
Michael Snoyman 2011-05-27 11:20:32 +03:00
parent c42deb74f7
commit cf841fb258
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Yesod/Static.hs
View File

@ -238,6 +238,7 @@ mkStaticFiles' fp routeConName makeHash = do
pack' <- [|pack|] pack' <- [|pack|]
qs <- if makeHash qs <- if makeHash
then do hash <- qRunIO $ base64md5File $ pathFromPieces fp (map pack f) then do hash <- qRunIO $ base64md5File $ pathFromPieces fp (map pack f)
-- FIXME hash <- qRunIO . calcHash $ fp ++ '/' : intercalate "/" f
[|[(pack $(lift hash), mempty)]|] [|[(pack $(lift hash), mempty)]|]
else return $ ListE [] else return $ ListE []
return return
@ -290,3 +291,10 @@ getStaticHandler static toSubR pieces = do
handler = fromMaybe notFound $ handleSite staticSite undefined route "GET" handler = fromMaybe notFound $ handleSite staticSite undefined route "GET"
-} -}
calcHash :: FilePath -> IO String
calcHash fname =
withBinaryFile fname ReadMode hashHandle
where
hashHandle h = do s <- L.hGetContents h
return $! base64md5 s