diff --git a/lib/Internal/Database/Model.hs b/lib/Internal/Database/Model.hs
index be731e8..42aa696 100644
--- 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
 |]