FIX foreign key errors

2023-02-05 11:34:22 -05:00 · 2023-02-05 11:34:22 -05:00 · 159204b47a
parent dae132c8b9
commit 159204b47a
1 changed files with 3 additions and 3 deletions
--- a/lib/Internal/Database/Model.hs
+++ b/lib/Internal/Database/Model.hs
@ -60,15 +60,15 @@ SplitR sql=splits
    value Rational
    deriving Show Eq
 BudgetLabelR sql=budget_labels
-    split SplitRId
+    split SplitRId OnDeleteCascade
    budgetName T.Text
    deriving Show Eq
 ExpenseBucketR sql=expense_buckets
-    budgetLabel BudgetLabelRId
+    budgetLabel BudgetLabelRId OnDeleteCascade
    bucket ExpenseBucket
    deriving Show Eq
 IncomeBucketR sql=income_buckets
-    budgetLabel BudgetLabelRId
+    budgetLabel BudgetLabelRId OnDeleteCascade
    bucket IncomeBucket
    deriving Show Eq
 |]