pandoc-server: allow binary writers/readers.

The expectation (which needs to be documented, along
with everything else about this server) is that the binary
content be base 64 encoded.

pandoc.cabal

@@ -799,6 +799,8 @@ executable pandoc-server
                    pandoc,
                    aeson,
                    text,
+                   bytestring,
+                   base64 >= 0.4,
                    servant-server,
                    wai >= 0.3,
                    wai-extra >= 3.0.24,

server/PandocServer.hs

@@ -13,18 +13,21 @@ import Data.Aeson.TH
 import Network.Wai
 import Servant
 import Text.Pandoc
+import qualified Text.Pandoc.UTF8 as UTF8
 import Data.Text (Text)
 import qualified Data.Text as T
 import qualified Data.Text.Lazy as TL
 import qualified Data.Text.Lazy.Encoding as TLE
 import Data.Maybe (fromMaybe)
 import Data.Char (isAlphaNum)
+import Data.ByteString.Lazy (fromStrict, toStrict)
+import Data.ByteString.Base64
 
 -- This is the data to be supplied by the JSON payload
 -- of requests.  Maybe values may be omitted and will be
 -- given default values.
 data Params = Params
-  { text           :: Text
+  { input          :: Text
   , from           :: Maybe Text
   , to             :: Maybe Text
   , wrapText       :: Maybe WrapOption
@@ -88,22 +91,23 @@ server = convert
                             Just t  -> Just <$>
                               compileCustomTemplate toformat t
                      else return Nothing
-    -- We don't yet handle binary formats:
+    let readeropts = def{ readerExtensions = readerExts
-    reader <- case readerSpec of
+                        , readerStandalone = isStandalone }
-                TextReader r -> return r
+    let writeropts = def{ writerExtensions = writerExts
-                _ -> throwError $ PandocAppError $
+                        , writerWrapText = fromMaybe WrapAuto (wrapText params)
-                       readerFormat <> " is not a text reader"
+                        , writerColumns = fromMaybe 72 (columns params)
-    writer <- case writerSpec of
+                        , writerTemplate = mbTemplate }
-                TextWriter w -> return w
+    let reader = case readerSpec of
-                _ -> throwError $ PandocAppError $
+                TextReader r -> r readeropts
-                       readerFormat <> " is not a text reader"
+                ByteStringReader r -> \t -> do
-    reader def{ readerExtensions = readerExts
+                  let eitherbs = decodeBase64 $ UTF8.fromText t
-              , readerStandalone = isStandalone }
+                  case eitherbs of
-           (text params) >>=
+                    Left errt -> throwError $ PandocSomeError errt
-      writer def{ writerExtensions = writerExts
+                    Right bs -> r readeropts $ fromStrict bs
-                , writerWrapText = fromMaybe WrapAuto (wrapText params)
+    let writer = case writerSpec of
-                , writerColumns = fromMaybe 72 (columns params)
+                TextWriter w -> w writeropts
-                , writerTemplate = mbTemplate }
+                ByteStringWriter w -> fmap (encodeBase64 . toStrict) . w writeropts
+    reader (input params) >>= writer
 
   handleErr (Right t) = return t
   handleErr (Left err) = throwError $