From f910233e0ff0e276a10a1a8f37cf4c02499ef9ae Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Sat, 12 Feb 2011 15:21:26 +0100
Subject: Avoid name clashes with pandoc

---
 examples/hakyll/hakyll.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'examples')

diff --git a/examples/hakyll/hakyll.hs b/examples/hakyll/hakyll.hs
index 92f24c7..35f0ba4 100644
--- a/examples/hakyll/hakyll.hs
+++ b/examples/hakyll/hakyll.hs
@@ -2,7 +2,7 @@
 import Hakyll
 import Control.Monad (forM_)
 import Control.Arrow ((>>>), arr)
-import Text.Pandoc (writerTableOfContents, writerTemplate, writerStandalone)
+import Text.Pandoc
 
 main :: IO ()
 main = hakyll $ do
@@ -25,7 +25,7 @@ main = hakyll $ do
     -- Tutorial
     route   "tutorial.markdown" $ setExtension "html"
     compile "tutorial.markdown" $ pageRead
-        >>> pageRenderPandocWith defaultParserState withToc
+        >>> pageRenderPandocWith defaultHakyllParserState withToc
         >>> requireA "sidebar.markdown" (setFieldA "sidebar" $ arr pageBody)
         >>> defaultApplyTemplate "templates/default.html"
         >>> defaultRelativizeUrls
@@ -36,7 +36,7 @@ main = hakyll $ do
     -- Templates
     compile "templates/*" defaultTemplateRead
   where
-    withToc = defaultWriterOptions
+    withToc = defaultHakyllWriterOptions
         { writerTableOfContents = True
         , writerTemplate = "<h2>Table of contents</h2>\n$toc$\n$body$"
         , writerStandalone = True
-- 
cgit v1.2.3