From dc597a8a68eff403d6e800a62ab93548adcc6f41 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 22 Dec 2010 11:48:08 -0800
Subject: [PATCH] Removed all dependencies on 'pretty' package.

---
 pandoc.cabal                 | 4 ++--
 src/Text/Pandoc/Templates.hs | 4 ----
 2 files changed, 2 insertions(+), 6 deletions(-)

diff --git a/pandoc.cabal b/pandoc.cabal
index 089ba6095..02e80845f 100644
--- a/pandoc.cabal
+++ b/pandoc.cabal
@@ -165,7 +165,7 @@ Library
   -- Note: the following material must be in both Library and Executable stanzas.
   -- It needs to be duplicated because of the library & executable flags.
   -- BEGIN DUPLICATED SECTION
-  Build-Depends: pretty >= 1, containers >= 0.1,
+  Build-Depends: containers >= 0.1,
                  parsec >= 2.1, xhtml >= 3000.0,
                  mtl >= 1.1, network >= 2, filepath >= 1.1,
                  process >= 1, directory >= 1,
@@ -238,7 +238,7 @@ Executable pandoc
   -- Note: the following material must be in both Library and Executable stanzas.
   -- It needs to be duplicated because of the library & executable flags.
   -- BEGIN DUPLICATED SECTION
-  Build-Depends: pretty >= 1, containers >= 0.1,
+  Build-Depends: containers >= 0.1,
                  parsec >= 2.1, xhtml >= 3000.0,
                  mtl >= 1.1, network >= 2, filepath >= 1.1,
                  process >= 1, directory >= 1,
diff --git a/src/Text/Pandoc/Templates.hs b/src/Text/Pandoc/Templates.hs
index c8ddc3abf..b03e8c73f 100644
--- a/src/Text/Pandoc/Templates.hs
+++ b/src/Text/Pandoc/Templates.hs
@@ -72,7 +72,6 @@ import Text.ParserCombinators.Parsec
 import Control.Monad (liftM, when, forM)
 import System.FilePath
 import Data.List (intercalate, intersperse)
-import Text.PrettyPrint (text, Doc)
 import Text.XHtml (primHtml, Html)
 import Data.ByteString.Lazy.UTF8 (ByteString, fromString)
 import Text.Pandoc.Shared (readDataFile)
@@ -112,9 +111,6 @@ instance TemplateTarget ByteString where
 instance TemplateTarget Html where
   toTarget = primHtml
 
-instance TemplateTarget Doc where
-  toTarget = text
-
 -- | Renders a template 
 renderTemplate :: TemplateTarget a
                => [(String,String)]  -- ^ Assoc. list of values for variables