{-# LANGUAGE TupleSections #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Main where
import Data.List
import Data.List.Split
import BenchGraph (bgraph, defaultConfig, Config(..), ComparisonStyle(..))
import Control.Exception (handle, catch, SomeException, ErrorCall)
main :: IO ()
main = do
let cfg = defaultConfig
{ outputDir = "charts"
, comparisonStyle = CompareFull
}
ignoringErr a = catch a (\(_ :: ErrorCall) ->
putStrLn "Failed. Skipping.")
-- bgraph