Add some more defaults

1 files changed, 11 insertions, 0 deletions

diff --git a/src/Hakyll/Web.hs b/src/Hakyll/Web.hs
index 536abda..4172283 100644
--- a/src/Hakyll/Web.hs
+++ b/src/Hakyll/Web.hs
@@ -4,6 +4,8 @@ module Hakyll.Web
     ( defaultPageRead
     , defaultTemplateRead
     , defaultRelativizeUrls
+    , defaultCopyFile
+    , defaultCompressCss
     ) where
 
 import Prelude hiding (id)
@@ -11,11 +13,14 @@ import Control.Category (id)
 import Control.Arrow (arr, (>>>), (>>^), (&&&))
 
 import Hakyll.Core.Compiler
+import Hakyll.Core.Writable
+import Hakyll.Core.Identifier
 import Hakyll.Web.Page
 import Hakyll.Web.Pandoc
 import Hakyll.Web.Template
 import Hakyll.Web.RelativizeUrls
 import Hakyll.Web.Util.String
+import Hakyll.Web.CompressCss
 
 defaultPageRead :: Compiler () (Page String)
 defaultPageRead = cached "Hakyll.Web.defaultPageRead" $
@@ -30,3 +35,9 @@ defaultRelativizeUrls = getRoute &&& id >>^ uncurry relativize
 defaultTemplateRead :: Compiler () Template
 defaultTemplateRead = cached "Hakyll.Web.defaultTemplateRead" $
     getResourceString >>^ readTemplate
+
+defaultCopyFile :: Compiler () CopyFile
+defaultCopyFile = getIdentifier >>^ CopyFile . toFilePath
+
+defaultCompressCss :: Compiler () String
+defaultCompressCss = getResourceString >>^ compressCss