Made hakyll function backward-compatible. Version bump.

examples/brochure/hakyll.hs

@@ -1,9 +1,9 @@
-import Text.Hakyll (hakyll, defaultHakyllConfiguration)
+import Text.Hakyll (hakyll)
 import Text.Hakyll.File (directory)
 import Text.Hakyll.Render (css, static, renderChain)
 import Text.Hakyll.Renderables (createPagePath)
 
-main = hakyll defaultHakyllConfiguration $ do
+main = hakyll $ do
     directory css "css"
     render "about.markdown"
     render "index.markdown"

examples/hakyll/hakyll.hs

@@ -7,7 +7,7 @@ import Text.Hakyll.Regex
 import Control.Monad (mapM_, liftM)
 import Data.List (sort)
 
-main = hakyll defaultHakyllConfiguration $ do
+main = hakyll $ do
     directory css "css"
     directory static "images"
     directory static "examples"

examples/morepages/hakyll.hs

@@ -1,9 +1,9 @@
-import Text.Hakyll (hakyll, defaultHakyllConfiguration)
+import Text.Hakyll (hakyll)
 import Text.Hakyll.File (directory)
 import Text.Hakyll.Render (css, static, renderChain)
 import Text.Hakyll.Renderables (createPagePath, combine)
 
-main = hakyll defaultHakyllConfiguration $ do
+main = hakyll $ do
     directory css "css"
     render "about.markdown"
     render "index.markdown"

examples/rssblog/hakyll.hs

@@ -1,7 +1,7 @@
 module Main where
 
 import Control.Monad.Reader (liftIO)
-import Text.Hakyll (hakyll, defaultHakyllConfiguration)
+import Text.Hakyll (hakyll)
 import Text.Hakyll.Render (renderAndConcat, renderChain, css)
 import Text.Hakyll.File (getRecursiveContents, directory)
 import Text.Hakyll.Renderables (createPagePath, createCustomPage)
@@ -9,7 +9,7 @@ import Data.List (sort)
 import Control.Monad (mapM_, liftM)
 import Data.Either (Either(..))
 
-main = hakyll defaultHakyllConfiguration $ do
+main = hakyll $ do
     -- Static directory.
     directory css "css"
 

examples/simpleblog/hakyll.hs

@@ -1,6 +1,6 @@
 module Main where
 
-import Text.Hakyll (hakyll, defaultHakyllConfiguration)
+import Text.Hakyll (hakyll)
 import Text.Hakyll.Render
 import Text.Hakyll.Context
 import Text.Hakyll.File (getRecursiveContents, directory)
@@ -10,7 +10,7 @@ import Control.Monad (mapM_, liftM)
 import Control.Monad.Reader (liftIO)
 import Data.Either (Either(..))
 
-main = hakyll defaultHakyllConfiguration $ do
+main = hakyll $ do
     -- Static directory.
     directory css "css"
 

examples/tagblog/hakyll.hs

@@ -1,6 +1,6 @@
 module Main where
 
-import Text.Hakyll (hakyll, defaultHakyllConfiguration)
+import Text.Hakyll (hakyll)
 import Text.Hakyll.Render
 import Text.Hakyll.Tags (readTagMap, renderTagCloud, renderTagLinks)
 import Text.Hakyll.File (getRecursiveContents, directory, removeSpaces)
@@ -11,7 +11,7 @@ import Data.Map (toList)
 import Control.Monad (mapM_, liftM)
 import Data.Either (Either(..))
 
-main = hakyll defaultHakyllConfiguration $ do
+main = hakyll $ do
     -- Static directory.
     directory css "css"
 

hakyll.cabal

@@ -1,5 +1,5 @@
 Name:           hakyll
-Version:        1.0.1
+Version:        1.1
 
 Synopsis:       A simple static site generator library.
 Description:

src/Text/Hakyll.hs

@@ -1,6 +1,7 @@
 module Text.Hakyll
     ( defaultHakyllConfiguration
     , hakyll
+    , hakyllWithConfiguration
     ) where
 
 import Control.Monad.Reader (runReaderT)
@@ -18,9 +19,13 @@ defaultHakyllConfiguration = HakyllConfiguration
     { additionalContext = M.empty
     }
 
--- | Main function to run hakyll.
+-- | Hakyll with a default configuration.
-hakyll :: HakyllConfiguration -> Hakyll () -> IO ()
+hakyll :: Hakyll () -> IO ()
-hakyll configuration buildFunction = do
+hakyll = hakyllWithConfiguration defaultHakyllConfiguration
+
+-- | Main function to run hakyll with a configuration.
+hakyllWithConfiguration :: HakyllConfiguration -> Hakyll () -> IO ()
+hakyllWithConfiguration configuration buildFunction = do
     args <- getArgs
     case args of ["build"]      -> build'
                  ["clean"]      -> clean