From 821dd38c138e33194105162f7ad4140c9c46fcf2 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Tue, 18 Jan 2011 10:33:13 +0100
Subject: Add some more defaults

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

(limited to 'src/Hakyll/Web.hs')

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
-- 
cgit v1.2.3