Revised Text.Pandoc.Templates to accept JSON contexts.

Currently the library is set up with a shim for association
lists, for compatibility, but this can change when the writers
are changed.

New export: `varListToJSON`.

Removed `Empty`.

Simplified template type to a newtype.

1 files changed, 5 insertions, 1 deletions

diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs
index 5541aeb3b..17be983ce 100644
--- a/src/Text/Pandoc/Writers/Man.hs
+++ b/src/Text/Pandoc/Writers/Man.hs
@@ -38,6 +38,7 @@ import Text.Printf ( printf )
 import Data.List ( isPrefixOf, intersperse, intercalate )
 import Text.Pandoc.Pretty
 import Control.Monad.State
+import qualified Data.Text as T
 
 type Notes = [[Block]]
 data WriterState = WriterState { stNotes  :: Notes
@@ -77,8 +78,11 @@ pandocToMan opts (Pandoc (Meta title authors date) blocks) = do
                  , ("description", render' description) ] ++
                  [ ("has-tables", "yes") | hasTables ] ++
                  [ ("author", render' a) | a <- authors' ]
+      template = case compileTemplate (T.pack $ writerTemplate opts) of
+                       Left  e -> error e
+                       Right t -> t
   if writerStandalone opts
-     then return $ renderTemplate context $ writerTemplate opts
+     then return $ renderTemplate template (varListToJSON context)
      else return main
 
 -- | Return man representation of notes.