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