Made hakyll function backward-compatible. Version bump.
This commit is contained in:
parent
0ba0eac8d9
commit
715387756e
8 changed files with 20 additions and 15 deletions
|
@ -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"
|
||||
|
|
|
@ -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"
|
||||
|
|
|
@ -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"
|
||||
|
|
|
@ -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"
|
||||
|
||||
|
|
|
@ -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"
|
||||
|
||||
|
|
|
@ -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"
|
||||
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
Name: hakyll
|
||||
Version: 1.0.1
|
||||
Version: 1.1
|
||||
|
||||
Synopsis: A simple static site generator library.
|
||||
Description:
|
||||
|
|
|
@ -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 :: HakyllConfiguration -> Hakyll () -> IO ()
|
||||
hakyll configuration buildFunction = do
|
||||
-- | Hakyll with a default configuration.
|
||||
hakyll :: Hakyll () -> IO ()
|
||||
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
|
||||
|
|
Loading…
Reference in a new issue