Remove all derived Typeable instances

IntersectMBO · Jan 13, 2025 · c195c16 · c195c16
1 parent 7973ab3
commit c195c16
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 6 deletions.
diff --git a/cardano-prelude/cardano-prelude.cabal b/cardano-prelude/cardano-prelude.cabal
@@ -73,9 +73,7 @@ library
                       cbits/worklist.c
                       cbits/closure_size.c
 
-                      -- -Wderiving-typeable was added in ghc-9.12. Disabling this warning
-                      -- should be disabled at some stage.
-  ghc-options:        -Wall -Wno-deriving-typeable
+  ghc-options:        -Wall
 
   cc-options:         -Wall
 

diff --git a/cardano-prelude/src/Cardano/Prelude/Panic.hs b/cardano-prelude/src/Cardano/Prelude/Panic.hs
@@ -1,5 +1,4 @@
 {-# LANGUAGE ConstraintKinds #-}
-{-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE Safe #-}
 
 -- This module cargo-culted from `Protolude`.
@@ -10,12 +9,11 @@ module Cardano.Prelude.Panic (
 
 import Control.Exception (Exception, throw)
 import Data.Text (Text)
-import Data.Typeable (Typeable)
 import GHC.Stack (HasCallStack)
 
 -- | Uncatchable exceptions thrown and never caught.
 newtype FatalError = FatalError { fatalErrorMessage :: Text }
-  deriving (Show, Typeable)
+  deriving Show
 
 instance Exception FatalError