Merge pull request #142 from haskell-works/remove-unnecessary-benchmarks

Remove unnecessary benchmarks

Author: newhoggy

bench/Main.hs

@@ -1,74 +1,10 @@
-{-# LANGUAGE BangPatterns        #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 
 module Main where
 
-import Control.Monad
 import Criterion.Main
-import Data.List
-import Data.Semigroup                                            ((<>))
-import Data.Word
-import Foreign
-import HaskellWorks.Data.Json.Standard.Cursor.Internal.Blank
-import HaskellWorks.Data.Json.Standard.Cursor.Internal.MakeIndex
-import System.IO.MMap
-
-import qualified Data.ByteString                             as BS
-import qualified Data.ByteString.Internal                    as BSI
-import qualified HaskellWorks.Data.Json.Standard.Cursor.Fast as FAST
-import qualified HaskellWorks.Data.Json.Standard.Cursor.Slow as SLOW
-import qualified System.Directory                            as IO
-
-setupEnvJson :: FilePath -> IO BS.ByteString
-setupEnvJson filepath = do
-  (fptr :: ForeignPtr Word8, offset, size) <- mmapFileForeignPtr filepath ReadOnly Nothing
-  let !bs = BSI.fromForeignPtr (castForeignPtr fptr) offset size
-  return bs
-
-jsonToInterestBits3 :: [BS.ByteString] -> [BS.ByteString]
-jsonToInterestBits3 = blankedJsonToInterestBits . blankJson
-
-makeBenchBlankJson :: IO [Benchmark]
-makeBenchBlankJson = do
-  entries <- IO.listDirectory "corpus/bench"
-  let files = ("corpus/bench/" ++) <$> (".json" `isSuffixOf`) `filter` entries
-  benchmarks <- forM files $ \file -> return
-    [ env (setupEnvJson file) $ \bs -> bgroup file
-      [ bench "Run blankJson" (whnf (BS.concat . blankJson) [bs])
-      ]
-    ]
-
-  return (join benchmarks)
-
-makeBenchJsonToInterestBits :: IO [Benchmark]
-makeBenchJsonToInterestBits = do
-  entries <- IO.listDirectory "corpus/bench"
-  let files = ("corpus/bench/" ++) <$> (".json" `isSuffixOf`) `filter` entries
-  benchmarks <- forM files $ \file -> return
-    [ env (setupEnvJson file) $ \bs -> bgroup file
-      [ bench "Run blankJson" (whnf (BS.concat . jsonToInterestBits3) [bs])
-      ]
-    ]
-
-  return (join benchmarks)
-
-makeBenchMakeCursor :: IO [Benchmark]
-makeBenchMakeCursor = do
-  entries <- IO.listDirectory "corpus/bench"
-  let files = ("corpus/bench/" ++) <$> (".json" `isSuffixOf`) `filter` entries
-  benchmarks <- forM files $ \file -> return
-    [ env (setupEnvJson file) $ \bs -> bgroup file
-      [ bench "Run slow make cursor" (whnf SLOW.fromByteString bs)
-      , bench "Run fast make cursor" (whnf FAST.fromByteString bs)
-      ]
-    ]
-
-  return (join benchmarks)
 
 main :: IO ()
 main = do
   benchmarks <- fmap mconcat $ sequence $ mempty
-    <> [makeBenchBlankJson]
-    <> [makeBenchJsonToInterestBits]
-    <> [makeBenchMakeCursor]
   defaultMain benchmarks