821dd38 · hakyll · git.iko.soy

git.iko.soy/hakyll

on master help sign in

Add some more defaults

821dd38Jasper Van der Jeugt16 years ago

src/Hakyll/Web.hs+11

compare with master

unifiedsplit

@@ -4,6 +4,8 @@ module Hakyll.Web

4 ( defaultPageRead

5 , defaultTemplateRead

6 , defaultRelativizeUrls

7+ , defaultCopyFile

8+ , defaultCompressCss

7 ) where

9 ) where

9import Prelude hiding (id)

11import Prelude hiding (id)

@@ -11,11 +13,14 @@ import Control.Category (id)

11import Control.Arrow (arr, (>>>), (>>^), (&&&))

13import Control.Arrow (arr, (>>>), (>>^), (&&&))

13import Hakyll.Core.Compiler

15import Hakyll.Core.Compiler

16+import Hakyll.Core.Writable

17+import Hakyll.Core.Identifier

14import Hakyll.Web.Page

18import Hakyll.Web.Page

15import Hakyll.Web.Pandoc

19import Hakyll.Web.Pandoc

16import Hakyll.Web.Template

20import Hakyll.Web.Template

17import Hakyll.Web.RelativizeUrls

21import Hakyll.Web.RelativizeUrls

18import Hakyll.Web.Util.String

22import Hakyll.Web.Util.String

23+import Hakyll.Web.CompressCss

20defaultPageRead :: Compiler () (Page String)

25defaultPageRead :: Compiler () (Page String)

21defaultPageRead = cached "Hakyll.Web.defaultPageRead" $

26defaultPageRead = cached "Hakyll.Web.defaultPageRead" $

@@ -30,3 +35,9 @@ defaultRelativizeUrls = getRoute &&& id >>^ uncurry relativize

30defaultTemplateRead :: Compiler () Template

35defaultTemplateRead :: Compiler () Template

31defaultTemplateRead = cached "Hakyll.Web.defaultTemplateRead" $

36defaultTemplateRead = cached "Hakyll.Web.defaultTemplateRead" $

32 getResourceString >>^ readTemplate

37 getResourceString >>^ readTemplate

38+

39+defaultCopyFile :: Compiler () CopyFile

40+defaultCopyFile = getIdentifier >>^ CopyFile . toFilePath

41+

42+defaultCompressCss :: Compiler () String

43+defaultCompressCss = getResourceString >>^ compressCss

src/Hakyll/Web/CompressCss.hs+1−1

@@ -1,7 +1,7 @@

1-- | Module used for CSS compression. The compression is currently in a simple

2-- state, but would typically reduce the number of bytes by about 25%.

3--

4−module Text.Hakyll.Internal.CompressCss

4+module Hakyll.Web.CompressCss

5 ( compressCss

6 ) where