Unescape entities in writing CSL JSON.

The renderCslJson function escapes `<`, `>`, and `&` as entities.
This is appropriate when generating HTML, but in CSL JSON
these are supposed to appear unescaped.

Closes jgm/citeproc#17.

1 files changed, 5 insertions, 2 deletions

diff --git a/src/Text/Pandoc/Writers/CslJson.hs b/src/Text/Pandoc/Writers/CslJson.hs
index 3a8f6f5b1..95ffb34a7 100644
--- a/src/Text/Pandoc/Writers/CslJson.hs
+++ b/src/Text/Pandoc/Writers/CslJson.hs
@@ -23,6 +23,7 @@ import qualified Data.Text as T
 import qualified Text.Pandoc.UTF8 as UTF8
 import Text.Pandoc.Error
 import Text.Pandoc.Class
+import Text.Pandoc.XML (fromEntities)
 import Control.Monad.Except (throwError)
 import Data.ByteString.Lazy (toStrict)
 import Data.ByteString (ByteString)
@@ -84,5 +85,7 @@ toCslJson locale = toStrict .
   encodePretty' defConfig{ confIndent = Spaces 2
                          , confCompare = compare
                          , confNumFormat = Generic }
-  . map (runIdentity .  traverse (return . renderCslJson locale . foldMap fromInline))
-
+  . map (runIdentity .  traverse (return .
+                                  fromEntities .
+                                  renderCslJson locale .
+                                  foldMap fromInline))