Remove mkDeleteCascade

It's now deprecated, and there are Foreign OnDeleteCascade items wherever necessary.
cardano-foundation · Jul 28, 2021 · d89e1e7 · d89e1e7
1 parent 9f68aac
commit d89e1e7
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/lib/core/src/Cardano/Pool/DB/Sqlite/TH.hs b/lib/core/src/Cardano/Pool/DB/Sqlite/TH.hs
@@ -36,7 +36,7 @@ import Data.Time.Clock.POSIX
 import Data.Word
     ( Word32, Word64, Word8 )
 import Database.Persist.TH
-    ( mkDeleteCascade, mkMigrate, mkPersist, persistLowerCase, share )
+    ( mkMigrate, mkPersist, persistLowerCase, share )
 import GHC.Generics
     ( Generic (..) )
 import System.Random
@@ -47,7 +47,6 @@ import qualified Cardano.Wallet.Primitive.Types as W
 
 share
     [ mkPersist sqlSettings'
-    , mkDeleteCascade sqlSettings'
     , mkMigrate "migrateAll"
     ]
     [persistLowerCase|

diff --git a/lib/core/src/Cardano/Wallet/DB/Sqlite/TH.hs b/lib/core/src/Cardano/Wallet/DB/Sqlite/TH.hs
@@ -44,7 +44,7 @@ import Data.Time.Clock
 import Data.Word
     ( Word16, Word32, Word64, Word8 )
 import Database.Persist.TH
-    ( mkDeleteCascade, mkMigrate, mkPersist, persistLowerCase, share )
+    ( mkMigrate, mkPersist, persistLowerCase, share )
 import GHC.Generics
     ( Generic (..) )
 import System.Random
@@ -62,7 +62,6 @@ import qualified Data.ByteString.Char8 as B8
 
 share
     [ mkPersist sqlSettings'
-    , mkDeleteCascade sqlSettings'
     , mkMigrate "migrateAll"
     ]
     [persistLowerCase|