readMarkdown :: Text -> Pandoc
readMarkdown = either (panic . show) identity
             . P.runPure
             . P.readMarkdown readerOptions
readMarkdown :: Text -> Pandoc
readMarkdown = either (panic . show) identity
             . P.runPure
             . P.readMarkdown readerOptions
readMarkdown = either (panic . show) identity
             . P.runPure
             . P.readMarkdown readerOptions