git.iko.soy/streamly
on 1bcdfdb help sign in
streamly/benchmark/Streamly/Benchmark/FileSystem/Handle.hs
56 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
21#if __GLASGOW_HASKELL__ >= 800
22#endif
24import Streamly.Benchmark.Common.Handle (mkHandleBenchEnv)
26import qualified Handle.ReadWrite as RW
27import qualified Handle.Read as RO
29import Gauge hiding (env)
30import Prelude hiding (last, length)
31import Streamly.Benchmark.Common
33-------------------------------------------------------------------------------
34--
35-------------------------------------------------------------------------------
37moduleName :: String
38moduleName = "FileSystem.Handle"
40-------------------------------------------------------------------------------
41--
42-------------------------------------------------------------------------------
44main :: IO ()
45main = do
46 env <- mkHandleBenchEnv
47 defaultMain (allBenchmarks env)
49 where
51 allBenchmarks env =
52 [ bgroup (o_1_space_prefix moduleName) $ Prelude.concat
53 [ RO.allBenchmarks env
54 , RW.allBenchmarks env
55 ]
56 ]