From abfb4c19195cf305637f1a9acd7f6dd70d59b831 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Tue, 15 Feb 2011 13:50:10 +0100
Subject: defaultCompressCss → compressCssCompiler
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/Hakyll/Web/CompressCss.hs | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'src/Hakyll/Web')

diff --git a/src/Hakyll/Web/CompressCss.hs b/src/Hakyll/Web/CompressCss.hs
index e138ea2..3e86e09 100644
--- a/src/Hakyll/Web/CompressCss.hs
+++ b/src/Hakyll/Web/CompressCss.hs
@@ -2,14 +2,24 @@
 -- state, but would typically reduce the number of bytes by about 25%.
 --
 module Hakyll.Web.CompressCss
-    ( compressCss
+    ( compressCssCompiler
+    , compressCss
     ) where
 
 import Data.Char (isSpace)
 import Data.List (isPrefixOf)
+import Control.Arrow ((>>^))
 
+import Hakyll.Core.Compiler
+import Hakyll.Core.ResourceProvider
 import Hakyll.Web.Util.String
 
+-- | Compiler form of 'compressCss' which automatically picks the right root
+-- path
+--
+compressCssCompiler :: Compiler Resource String
+compressCssCompiler = getResourceString >>^ compressCss
+
 -- | Compress CSS to speed up your site.
 --
 compressCss :: String -> String
-- 
cgit v1.2.3