diff options
Diffstat (limited to 'src/Hakyll')
| -rw-r--r-- | src/Hakyll/Web.hs | 11 | ||||
| -rw-r--r-- | src/Hakyll/Web/CompressCss.hs | 2 |
2 files changed, 12 insertions, 1 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 diff --git a/src/Hakyll/Web/CompressCss.hs b/src/Hakyll/Web/CompressCss.hs index 6e3b6f2..e138ea2 100644 --- a/src/Hakyll/Web/CompressCss.hs +++ b/src/Hakyll/Web/CompressCss.hs @@ -1,7 +1,7 @@ -- | Module used for CSS compression. The compression is currently in a simple -- state, but would typically reduce the number of bytes by about 25%. -- -module Text.Hakyll.Internal.CompressCss +module Hakyll.Web.CompressCss ( compressCss ) where |