FIX typos

This commit is contained in:
Nathan Dwarshuis 2023-01-30 22:48:16 -05:00
parent 373f1c97ea
commit 9197837cce
3 changed files with 6 additions and 6 deletions

View File

@ -59,15 +59,15 @@ SplitR sql=splits
memo T.Text
value Rational
deriving Show Eq
BudgetLabelR
BudgetLabelR sql=budget_labels
split SplitRId
name T.Text
budgetName T.Text
deriving Show Eq
ExpenseBucketR
ExpenseBucketR sql=expense_buckets
budgetLabel BudgetLabelRId
bucket ExpenseBucket
deriving Show Eq
IncomeBucketR
IncomeBucketR sql=income_buckets
budgetLabel BudgetLabelRId
bucket IncomeBucket
deriving Show Eq

View File

@ -102,7 +102,7 @@ nukeTables = do
hashConfig :: Config -> [Int]
hashConfig
Config_
{ budget = Budget {expenses = xs, income = is}
{ budget = Budget {transfers = xs, income = is}
, statements = ss
} =
(hash <$> xs) ++ (hash <$> is) ++ (hash <$> ms) ++ (hash <$> ps)

View File

@ -95,7 +95,7 @@ askBounds = (liftIO . resolveBounds) =<< asks kmBudgetInterval
-- budget
insertBudget :: MonadUnliftIO m => Budget -> MappingT m [InsertError]
insertBudget Budget {income = is, expenses = es} = do
insertBudget Budget {income = is, transfers = es} = do
es1 <- mapM insertIncome is
es2 <- mapM insertTransfer es
return $ concat $ es1 ++ es2