mathblog-0.6: src/MB/Gen/Index.hs

module MB.Gen.Index
    ( buildIndexPage
    )
where

import Control.Monad
import Control.Monad.Trans
import System.Directory

import MB.Types

buildIndexPage :: BlogM ()
buildIndexPage = do
  blog <- theBlog

  when (null $ blogPosts blog) $
       error "No blog posts; please create a first post in posts/."

  let src = ofsPostFinalHtml (outputFS blog) post
      index = ofsIndexHtml $ outputFS $ blog
      post = head $ blogPosts blog

  liftIO $ copyFile src index