Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 96d2e01c67
Fetching contributors…

Cannot retrieve contributors at this time

15 lines (12 sloc) 0.401 kB
import Text.Pandoc2
import Criterion.Main
import Data.List (isSuffixOf)
import Text.JSON.Generic
import Data.Text.Encoding (decodeUtf8)
import Data.ByteString as B
main = do
inp <- B.readFile "README.markdown"
let poptions' = poptions
let convert :: B.ByteString -> Maybe Blocks
convert = markdownDoc poptions' . decodeUtf8
defaultMain [ bench ("markdown reader") $ whnf convert inp ]
Jump to Line
Something went wrong with that request. Please try again.