@@ -4,6 +4,8 @@ module Hakyll.Web
44 ( defaultPageRead
55 , defaultTemplateRead
66 , defaultRelativizeUrls
7+ , defaultCopyFile
8+ , defaultCompressCss
79 ) where
810
911import Prelude hiding (id)
@@ -11,11 +13,14 @@ import Control.Category (id)
1113import Control.Arrow (arr, (>>>), (>>^), (&&&))
1214
1315import Hakyll.Core.Compiler
16+import Hakyll.Core.Writable
17+import Hakyll.Core.Identifier
1418import Hakyll.Web.Page
1519import Hakyll.Web.Pandoc
1620import Hakyll.Web.Template
1721import Hakyll.Web.RelativizeUrls
1822import Hakyll.Web.Util.String
23+import Hakyll.Web.CompressCss
1924
2025defaultPageRead :: Compiler () (Page String)
2126defaultPageRead = cached "Hakyll.Web.defaultPageRead" $
@@ -30,3 +35,9 @@ defaultRelativizeUrls = getRoute &&& id >>^ uncurry relativize
3035defaultTemplateRead :: Compiler () Template
3136defaultTemplateRead = cached "Hakyll.Web.defaultTemplateRead" $
3237 getResourceString >>^ readTemplate
38+
39+defaultCopyFile :: Compiler () CopyFile
40+defaultCopyFile = getIdentifier >>^ CopyFile . toFilePath
41+
42+defaultCompressCss :: Compiler () String
43+defaultCompressCss = getResourceString >>^ compressCss