From d7cfa0ef4c926d6bb91d0a870edeea8911d81c3a Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 22 Feb 2021 22:10:20 -0800
Subject: Remove weigh-pandoc.

It's not really useful any more, now that our regular
benchmarks include data on allocation.
---
 benchmark/weigh-pandoc.hs | 48 -----------------------------------------------
 1 file changed, 48 deletions(-)
 delete mode 100644 benchmark/weigh-pandoc.hs

(limited to 'benchmark')

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
-- 
cgit v1.2.3