git.iko.soy/hakyll
on master help sign in
defaultCompressCss → compressCssCompiler
commitabfb4c19195cf305637f1a9acd7f6dd70d59b831 authorJasper Van der Jeugt <jaspervdj@gmail.com> dateTue 15 Feb 2011, 13:50 (16 years ago) parent878ca8f
2 files changed+11−6
compare with master
unifiedsplit
src/Hakyll/Web.hs−5 src/Hakyll/Web/CompressCss.hs+11−1
src/Hakyll/Web.hs−5
@@ -6,7 +6,6 @@ module Hakyll.Web
66 , defaultTemplateReadWith
77 , defaultRelativizeUrls
88 , defaultCopyFile
9− , defaultCompressCss
109 , defaultApplyTemplate
1110 ) where
1211
@@ -25,7 +24,6 @@ import Hakyll.Web.Pandoc
2524import Hakyll.Web.Template
2625import Hakyll.Web.RelativizeUrls
2726import Hakyll.Web.Util.String
28−import Hakyll.Web.CompressCss
2927
3028defaultPageRead :: Compiler Resource (Page String)
3129defaultPageRead = cached "Hakyll.Web.defaultPageRead" $
@@ -47,9 +45,6 @@ defaultTemplateReadWith settings = cached "Hakyll.Web.defaultTemplateReadWith" $
4745defaultCopyFile :: Compiler Resource CopyFile
4846defaultCopyFile = getIdentifier >>^ CopyFile . toFilePath
4947
50−defaultCompressCss :: Compiler Resource String
51−defaultCompressCss = getResourceString >>^ compressCss
52−
5348defaultApplyTemplate :: Identifier -- ^ Template
5449 -> Compiler (Page String) (Page String) -- ^ Compiler
5550defaultApplyTemplate identifier = require identifier (flip applyTemplate)
src/Hakyll/Web/CompressCss.hs+11−1
@@ -2,14 +2,24 @@
22-- state, but would typically reduce the number of bytes by about 25%.
33--
44module Hakyll.Web.CompressCss
5− ( compressCss
5+ ( compressCssCompiler
6+ , compressCss
67 ) where
78
89import Data.Char (isSpace)
910import Data.List (isPrefixOf)
11+import Control.Arrow ((>>^))
1012
13+import Hakyll.Core.Compiler
14+import Hakyll.Core.ResourceProvider
1115import Hakyll.Web.Util.String
1216
17+-- | Compiler form of 'compressCss' which automatically picks the right root
18+-- path
19+--
20+compressCssCompiler :: Compiler Resource String
21+compressCssCompiler = getResourceString >>^ compressCss
22+
1323-- | Compress CSS to speed up your site.
1424--
1525compressCss :: String -> String