From cba252e0782e9f4397c0530ae7d4d37df3621906 Mon Sep 17 00:00:00 2001
From: Bodigrim <andrew.lelechenko@gmail.com>
Date: Mon, 14 Oct 2024 23:35:12 +0100
Subject: [PATCH] Fix -Wderiving-typeable

---
 src/Test/Tasty/Bench.hs | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/src/Test/Tasty/Bench.hs b/src/Test/Tasty/Bench.hs
index 60e17ad..52016ed 100644
--- a/src/Test/Tasty/Bench.hs
+++ b/src/Test/Tasty/Bench.hs
@@ -648,8 +648,6 @@ command-line options. Here is an example:
 
 {-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE CPP #-}
-{-# LANGUAGE DeriveDataTypeable #-}
-{-# LANGUAGE DeriveFunctor #-}
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
@@ -709,7 +707,6 @@ import Control.Arrow (first, second)
 import Control.DeepSeq (NFData, force, rnf)
 import Control.Exception (bracket, evaluate)
 import Control.Monad (void, unless, guard, (>=>), when)
-import Data.Data (Typeable)
 import Data.Foldable (foldMap, traverse_)
 import Data.Int (Int64)
 import Data.IORef
@@ -801,7 +798,6 @@ newtype RelStDev = RelStDev Double
   -- ^ @since 0.4
   , Fractional
   -- ^ @since 0.4
-  , Typeable
   )
 
 -- | Whether to measure CPU time or wall-clock time.
@@ -831,7 +827,6 @@ data TimeMode = CpuTime
   -- ^ Measure CPU time.
   | WallTime
   -- ^ Measure wall-clock time.
-  deriving (Typeable)
 
 #ifdef MIN_VERSION_tasty
 instance IsOption RelStDev where
@@ -864,7 +859,6 @@ newtype FailIfSlower = FailIfSlower Double
   -- ^ @since 0.4
   , Fractional
   -- ^ @since 0.4
-  , Typeable
   )
 
 instance IsOption FailIfSlower where
@@ -897,7 +891,6 @@ newtype FailIfFaster = FailIfFaster Double
   -- ^ @since 0.4
   , Fractional
   -- ^ @since 0.4
-  , Typeable
   )
 
 instance IsOption FailIfFaster where
@@ -936,7 +929,7 @@ newtype Benchmarkable =
     -- | @since 0.3
     Benchmarkable
   { unBenchmarkable :: Word64 -> IO () -- ^ Run benchmark given number of times.
-  } deriving (Typeable)
+  }
 
 #ifdef MIN_VERSION_tasty
 
@@ -1707,7 +1700,6 @@ newtype CsvPath = CsvPath FilePath
   -- ^ @since 0.4
   , Ord
   -- ^ @since 0.4
-  , Typeable
   )
 
 instance IsOption (Maybe CsvPath) where
@@ -1786,7 +1778,6 @@ newtype SvgPath = SvgPath FilePath
   -- ^ @since 0.4
   , Ord
   -- ^ @since 0.4
-  , Typeable
   )
 
 instance IsOption (Maybe SvgPath) where
@@ -1925,7 +1916,6 @@ newtype BaselinePath = BaselinePath FilePath
   -- ^ @since 0.4
   , Ord
   -- ^ @since 0.4
-  , Typeable
   )
 
 instance IsOption (Maybe BaselinePath) where