git.iko.soy/streamly
on 48ad6db help sign in
streamly/benchmark/Streamly/Benchmark/FileSystem/Handle.hs
52 lines 1.4 kB history raw
1-- |
2-- Module : Streamly.Benchmark.FileSystem.Handle
3-- Copyright : (c) 2019 Composewell Technologies
4-- License : BSD-3-Clause
5-- Maintainer : streamly@composewell.com
6-- Stability : experimental
7-- Portability : GHC
9{-# LANGUAGE CPP #-}
10{-# LANGUAGE ScopedTypeVariables #-}
12#ifdef __HADDOCK_VERSION__
13#undef INSPECTION
14#endif
16#ifdef INSPECTION
17{-# LANGUAGE TemplateHaskell #-}
18{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
19#endif
20import Streamly.Benchmark.Common.Handle (mkHandleBenchEnv)
22import qualified Handle.ReadWrite as RW
23import qualified Handle.Read as RO
25import Gauge hiding (env)
26import Prelude hiding (last, length)
27import Streamly.Benchmark.Common
29-------------------------------------------------------------------------------
30--
31-------------------------------------------------------------------------------
33moduleName :: String
34moduleName = "FileSystem.Handle"
36-------------------------------------------------------------------------------
37--
38-------------------------------------------------------------------------------
40main :: IO ()
41main = do
42 env <- mkHandleBenchEnv
43 defaultMain (allBenchmarks env)
45 where
47 allBenchmarks env =
48 [ bgroup (o_1_space_prefix moduleName) $ Prelude.concat
49 [ RO.allBenchmarks env
50 , RW.allBenchmarks env
51 ]
52 ]