Skip to content

Instantly share code, notes, and snippets.

@Gryff

Gryff/bank-kata-haskell-date-3.hs

Created March 12, 2019 16:21
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save Gryff/67444e7a6242a809e53e78a5766f8ad7 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save Gryff/67444e7a6242a809e53e78a5766f8ad7 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
bank-kata-haskell-date-3.hs
firstOfJan2019 = UTCTime (fromGregorian 2019 01 01) (secondsToDiffTime 0)
-- ...
deposit amount = modify $ \transactions -> transactions ++ [Deposit amount firstOfJan2019]
-- same for `withdraw`, and in test functions
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment