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.hs             |  5 -----
 src/Hakyll/Web/CompressCss.hs | 12 +++++++++++-
 2 files changed, 11 insertions(+), 6 deletions(-)

(limited to 'src')

diff --git a/src/Hakyll/Web.hs b/src/Hakyll/Web.hs
index ae86301..74c5c6c 100644
--- a/src/Hakyll/Web.hs
+++ b/src/Hakyll/Web.hs
@@ -6,7 +6,6 @@ module Hakyll.Web
     , defaultTemplateReadWith
     , defaultRelativizeUrls
     , defaultCopyFile
-    , defaultCompressCss
     , defaultApplyTemplate
     ) where
 
@@ -25,7 +24,6 @@ import Hakyll.Web.Pandoc
 import Hakyll.Web.Template
 import Hakyll.Web.RelativizeUrls
 import Hakyll.Web.Util.String
-import Hakyll.Web.CompressCss
 
 defaultPageRead :: Compiler Resource (Page String)
 defaultPageRead = cached "Hakyll.Web.defaultPageRead" $
@@ -47,9 +45,6 @@ defaultTemplateReadWith settings = cached "Hakyll.Web.defaultTemplateReadWith" $
 defaultCopyFile :: Compiler Resource CopyFile
 defaultCopyFile = getIdentifier >>^ CopyFile . toFilePath
 
-defaultCompressCss :: Compiler Resource String
-defaultCompressCss = getResourceString >>^ compressCss
-
 defaultApplyTemplate :: Identifier                            -- ^ Template
                      -> Compiler (Page String) (Page String)  -- ^ Compiler
 defaultApplyTemplate identifier = require identifier (flip applyTemplate)
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