Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

server: change 'input' param back to 'text'.

Browse source
This commit is contained in:
John MacFarlane 2022-08-08 13:36:01 -07:00
parent 1f3f9d6dda
commit 007483b2c3
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
server/PandocServer.hs
View file

@ -27,7 +27,7 @@ import Data.ByteString.Base64
-- of requests. Maybe values may be omitted and will be -- of requests. Maybe values may be omitted and will be
-- given default values. -- given default values.
data Params = Params data Params = Params
{ input :: Text { text :: Text
, from :: Maybe Text , from :: Maybe Text
, to :: Maybe Text , to :: Maybe Text
, wrapText :: Maybe WrapOption , wrapText :: Maybe WrapOption
@ -107,7 +107,7 @@ server = convert
let writer = case writerSpec of let writer = case writerSpec of
TextWriter w -> w writeropts TextWriter w -> w writeropts
ByteStringWriter w -> fmap (encodeBase64 . toStrict) . w writeropts ByteStringWriter w -> fmap (encodeBase64 . toStrict) . w writeropts
reader (input params) >>= writer reader (text params) >>= writer
handleErr (Right t) = return t handleErr (Right t) = return t
handleErr (Left err) = throwError $ handleErr (Left err) = throwError $