{-# LANGUAGE OverloadedStrings #-}

import Data.Maybe (fromMaybe)

import Hakyll

main :: IO ()
main = hakyll $ do
  match "templates/*" $
    compile templateBodyCompiler

  match "index.md" $ do
    route $ constRoute "index.html" 
    compile $
      pandocCompiler
        >>= loadAndApplyTemplate "templates/default.html" defaultContext