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