typerep-map-0.1.0: benchmark/Main.hs

{-# LANGUAGE CPP #-}

module Main where

import Criterion.Main (defaultMain)

import CacheMap (benchCacheMap)
import CMap (benchMap, prepareBenchMap)
#if ( __GLASGOW_HASKELL__ >= 802 )
import DMap (benchDMap, prepareBenchDMap)
#endif
import OptimalVector (benchVectorOpt, prepareBenchVectorOpt)
--import Vector (benchVector, prepareBenchVector)

main :: IO ()
main = do
  prepareBenchMap
  --prepareBenchVector
  prepareBenchVectorOpt
#if ( __GLASGOW_HASKELL__ >= 802 )
  prepareBenchDMap
#endif
  defaultMain
    [ benchMap
   -- , benchVector
    , benchCacheMap
    , benchVectorOpt
#if ( __GLASGOW_HASKELL__ >= 802 )
    , benchDMap
#endif
    ]