From 6228ccc351635ea91f9255974f23d83dff7d71bd Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Fri, 14 Oct 2016 05:53:07 +0300
Subject: [PATCH] Don't use lazy I/O in embedDirAt #149

---
 yesod-static/Yesod/EmbeddedStatic/Generators.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/yesod-static/Yesod/EmbeddedStatic/Generators.hs b/yesod-static/Yesod/EmbeddedStatic/Generators.hs
index fb7f2635..1893a01f 100644
--- a/yesod-static/Yesod/EmbeddedStatic/Generators.hs
+++ b/yesod-static/Yesod/EmbeddedStatic/Generators.hs
@@ -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]