diff --git a/benchmark/Charts.hs b/benchmark/Charts.hs
index 5b4dda1a..b4d8cbb0 100644
--- a/benchmark/Charts.hs
+++ b/benchmark/Charts.hs
@@ -1,10 +1,12 @@
{-# LANGUAGE TupleSections #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
module Main where
import Data.List
import Data.List.Split
import BenchGraph (bgraph, defaultConfig, Config(..), ComparisonStyle(..))
-import Control.Applicative ((<|>))
+import Control.Exception (handle, catch, SomeException, ErrorCall)
main :: IO ()
main = do
@@ -13,13 +15,15 @@ main = do
, comparisonStyle = CompareDelta
}
+ ignoringErr a = catch a (\(_ :: ErrorCall) ->
+ putStrLn "Failed. Skipping.")
-- bgraph