Skip to content

Instantly share code, notes, and snippets.

@KirinDave

KirinDave/embarassed.hs

Created February 19, 2016 23:06
Show Gist options
  • Save KirinDave/29f43470db706be41c3f to your computer and use it in GitHub Desktop.
Save KirinDave/29f43470db706be41c3f to your computer and use it in GitHub Desktop.
Download ZIP
Raw
embarassed.hs
-- I am so embararassed I wrote it this way. It literally is more characters.
totalBudgetObligationAt :: SimTick -> Budget -> Centocents
totalBudgetObligationAt now b = sum $ [currentSpendableObligationAt now,
currentExpenseObligationAt now,
currentSavingObligationAt now] <*> [b]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment