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

Don't use lazy I/O in embedDirAt #149

Browse Source
This commit is contained in:
Michael Snoyman 2016-10-14 05:53:07 +03:00
parent 1aed870e0b
commit 6228ccc351
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod-static/Yesod/EmbeddedStatic/Generators.hs
View File

@ -43,6 +43,7 @@ import Network.Mime (defaultMimeLookup)
import System.Directory (doesDirectoryExist, getDirectoryContents, findExecutable)
import System.FilePath ((</>))
import Text.Jasmine (minifym)
import qualified Data.ByteString as BS
import qualified Data.ByteString.Lazy as BL
import qualified Data.Conduit.List as C
import Data.Conduit.Binary (sourceHandle)
@ -71,8 +72,9 @@ embedFileAt loc f = do
ebHaskellName = Just $ pathToName loc
, ebLocation = loc
, ebMimeType = mime
, ebProductionContent = BL.readFile f
, ebDevelReload = [| BL.readFile $(litE $ stringL f) |]
, ebProductionContent = fmap BL.fromStrict (BS.readFile f)
, ebDevelReload = [| fmap BL.fromStrict
(BS.readFile $(litE $ stringL f)) |]
}
return [entry]