From 22caf035ef839e9cae2fbeff63df84c08f56167d Mon Sep 17 00:00:00 2001
From: Greg Weber <greg@gregweber.info>
Date: Thu, 2 Jan 2014 14:42:17 -0800
Subject: [PATCH] absolute url function returns lazy text

---
 yesod-static/Yesod/EmbeddedStatic/Css/AbsoluteUrl.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/yesod-static/Yesod/EmbeddedStatic/Css/AbsoluteUrl.hs b/yesod-static/Yesod/EmbeddedStatic/Css/AbsoluteUrl.hs
index 14b9e9d6..19a9a1fb 100644
--- a/yesod-static/Yesod/EmbeddedStatic/Css/AbsoluteUrl.hs
+++ b/yesod-static/Yesod/EmbeddedStatic/Css/AbsoluteUrl.hs
@@ -17,6 +17,7 @@ import Yesod.EmbeddedStatic.Types
 
 import qualified Data.ByteString.Lazy as BL
 import qualified Data.Text as T
+import qualified Data.Text.Lazy as TL
 import qualified Data.Text.IO as T
 import qualified Data.Text.Lazy.Encoding as TL
 import Control.Monad ((>=>))
@@ -35,15 +36,14 @@ absCssUrlsFileProd :: FilePath -- ^ Anchor relative urls to here
                      -> IO BL.ByteString
 absCssUrlsFileProd dir file = do
     contents <- T.readFile (encodeString file)
-    return $ absCssUrlsProd dir contents
+    return $ TL.encodeUtf8 $ absCssUrlsProd dir contents
 
 absCssUrlsProd :: FilePath -- ^ Anchor relative urls to here
                -> T.Text
-               -> BL.ByteString
+               -> TL.Text
 absCssUrlsProd dir contents =
     let css = either error id $ parseCssUrls contents
-        r = renderCssWith toAbsoluteUrl css
-    in  TL.encodeUtf8 r
+    in  renderCssWith toAbsoluteUrl css
   where
     toAbsoluteUrl (UrlReference rel) = T.concat
         [ "url('/"