diff --git a/cardano-prelude/cardano-prelude.cabal b/cardano-prelude/cardano-prelude.cabal index bed6e8e..bda35a8 100644 --- 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 index 4fde3a8..42cf7fd 100644 --- 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