diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-02-22 22:10:20 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-02-22 22:10:20 -0800 |
| commit | d7cfa0ef4c926d6bb91d0a870edeea8911d81c3a (patch) | |
| tree | 3e4ab70ce50b887a93bc199a037653d64da4a77c | |
| parent | 21d0b4745b46f8622b31647c81a9d9178b1a579d (diff) | |
| download | pandoc-d7cfa0ef4c926d6bb91d0a870edeea8911d81c3a.tar.gz | |
Remove weigh-pandoc.
It's not really useful any more, now that our regular
benchmarks include data on allocation.
| -rw-r--r-- | benchmark/weigh-pandoc.hs | 48 | ||||
| -rw-r--r-- | pandoc.cabal | 8 |
2 files changed, 0 insertions, 56 deletions
diff --git a/benchmark/weigh-pandoc.hs b/benchmark/weigh-pandoc.hs deleted file mode 100644 index b77fa9ee9..000000000 --- a/benchmark/weigh-pandoc.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{- | - Module : Main - Copyright : © 2016-2021 John MacFarlane <jgm@berkeley.edu> - License : GNU GPL, version 2 or above - - Maintainer : John MacFarlane <jgm@berkeley.edu> - Stability : alpha - Portability : portable - -Benchmarks to determine resource use of readers and writers. --} -import Weigh -import Text.Pandoc -import Data.Text (Text, unpack) - -main :: IO () -main = do - doc <- read <$> readFile "test/testsuite.native" - mainWith $ do - func "Pandoc document" id doc - mapM_ - (\(n,r) -> weighReader doc n (either (error . show) id . runPure . r def{readerExtensions = pandocExtensions})) - [("markdown", readMarkdown) - ,("html", readHtml) - ,("docbook", readDocBook) - ,("latex", readLaTeX) - ,("commonmark", readCommonMark) - ] - mapM_ - (\(n,w) -> weighWriter doc n (either (error . show) id . runPure . w def)) - [("markdown", writeMarkdown) - ,("html", writeHtml5String) - ,("docbook", writeDocbook5) - ,("latex", writeLaTeX) - ,("commonmark", writeCommonMark) - ] - -weighWriter :: Pandoc -> String -> (Pandoc -> Text) -> Weigh () -weighWriter doc name writer = func (name ++ " writer") writer doc - -weighReader :: Pandoc -> Text -> (Text -> Pandoc) -> Weigh () -weighReader doc name reader = - case lookup name writers of - Just (TextWriter writer) -> - let inp = either (error . show) id $ runPure $ writer def{ writerWrapText = WrapAuto} doc - in func (unpack $ name <> " reader") reader inp - _ -> return () -- no writer for reader diff --git a/pandoc.cabal b/pandoc.cabal index 30226f445..e4001abb8 100644 --- a/pandoc.cabal +++ b/pandoc.cabal @@ -725,14 +725,6 @@ executable trypandoc else buildable: False -benchmark weigh-pandoc - import: common-executable - type: exitcode-stdio-1.0 - main-is: weigh-pandoc.hs - hs-source-dirs: benchmark - build-depends: mtl >= 2.2 && < 2.3, - weigh >= 0.0 && < 0.1, - test-suite test-pandoc import: common-executable type: exitcode-stdio-1.0 |