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

absolute url function returns lazy text

Browse Source
This commit is contained in:
Greg Weber 2014-01-02 14:42:17 -08:00
parent a2e979ccda
commit 22caf035ef
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
yesod-static/Yesod/EmbeddedStatic/Css/AbsoluteUrl.hs
View File

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