make InternalDbException a newtype

Change-Id: I596c63d4c612d03bc143551fe8e6ec1e70dbaccd

src/Chainweb/Pact5/Backend/ChainwebPactDb.hs

@@ -1,4 +1,5 @@
 {-# LANGUAGE BangPatterns #-}
+{-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE DerivingStrategies #-}
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE GADTs #-}
@@ -13,10 +14,10 @@
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE BlockArguments #-}
+
 -- TODO pact5: fix the orphan PactDbFor instance
 {-# OPTIONS_GHC -Wno-orphans #-}
 
-
 module Chainweb.Pact5.Backend.ChainwebPactDb
     ( chainwebPactCoreBlockDb
     , Pact5Db(..)
@@ -106,13 +107,6 @@ import Pact.Core.Command.Types (RequestKey (..))
 import Pact.Core.Hash
 import qualified Data.HashMap.Strict as HM
 
-data InternalDbException =
-    InternalDbException Text
-    deriving (Eq, Show, Typeable)
-
-instance Exception InternalDbException
-
-
 data BlockHandlerEnv logger = BlockHandlerEnv
     { _blockHandlerDb :: !SQLiteEnv
     , _blockHandlerLogger :: !logger
@@ -187,6 +181,11 @@ callDb callerName action = do
         Left err -> internalDbError $ "callDb (" <> callerName <> "): " <> sshow err
         Right r -> return r
 
+newtype InternalDbException = InternalDbException Text
+  deriving newtype (Eq)
+  deriving stock (Show)
+  deriving anyclass (Exception)
+
 internalDbError :: MonadThrow m => Text -> m a
 internalDbError = throwM . InternalDbException