FIX typos
This commit is contained in:
parent
373f1c97ea
commit
9197837cce
|
@ -59,15 +59,15 @@ SplitR sql=splits
|
||||||
memo T.Text
|
memo T.Text
|
||||||
value Rational
|
value Rational
|
||||||
deriving Show Eq
|
deriving Show Eq
|
||||||
BudgetLabelR
|
BudgetLabelR sql=budget_labels
|
||||||
split SplitRId
|
split SplitRId
|
||||||
name T.Text
|
budgetName T.Text
|
||||||
deriving Show Eq
|
deriving Show Eq
|
||||||
ExpenseBucketR
|
ExpenseBucketR sql=expense_buckets
|
||||||
budgetLabel BudgetLabelRId
|
budgetLabel BudgetLabelRId
|
||||||
bucket ExpenseBucket
|
bucket ExpenseBucket
|
||||||
deriving Show Eq
|
deriving Show Eq
|
||||||
IncomeBucketR
|
IncomeBucketR sql=income_buckets
|
||||||
budgetLabel BudgetLabelRId
|
budgetLabel BudgetLabelRId
|
||||||
bucket IncomeBucket
|
bucket IncomeBucket
|
||||||
deriving Show Eq
|
deriving Show Eq
|
||||||
|
|
|
@ -102,7 +102,7 @@ nukeTables = do
|
||||||
hashConfig :: Config -> [Int]
|
hashConfig :: Config -> [Int]
|
||||||
hashConfig
|
hashConfig
|
||||||
Config_
|
Config_
|
||||||
{ budget = Budget {expenses = xs, income = is}
|
{ budget = Budget {transfers = xs, income = is}
|
||||||
, statements = ss
|
, statements = ss
|
||||||
} =
|
} =
|
||||||
(hash <$> xs) ++ (hash <$> is) ++ (hash <$> ms) ++ (hash <$> ps)
|
(hash <$> xs) ++ (hash <$> is) ++ (hash <$> ms) ++ (hash <$> ps)
|
||||||
|
|
|
@ -95,7 +95,7 @@ askBounds = (liftIO . resolveBounds) =<< asks kmBudgetInterval
|
||||||
-- budget
|
-- budget
|
||||||
|
|
||||||
insertBudget :: MonadUnliftIO m => Budget -> MappingT m [InsertError]
|
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
|
es1 <- mapM insertIncome is
|
||||||
es2 <- mapM insertTransfer es
|
es2 <- mapM insertTransfer es
|
||||||
return $ concat $ es1 ++ es2
|
return $ concat $ es1 ++ es2
|
||||||
|
|
Loading…
Reference in New Issue