{"action":"created","issue":{"url":"https://api.github.com/repos/rwobben/paytime/issues/16","labels_url":"https://api.github.com/repos/rwobben/paytime/issues/16/labels{/name}","comments_url":"https://api.github.com/repos/rwobben/paytime/issues/16/comments","events_url":"https://api.github.com/repos/rwobben/paytime/issues/16/events","html_url":"https://github.com/rwobben/paytime/issues/16","id":125383614,"number":16,"title":"deposit a amount ","user":{"login":"rwobben","id":16528407,"avatar_url":"https://avatars.githubusercontent.com/u/16528407?v=3","gravatar_id":"","url":"https://api.github.com/users/rwobben","html_url":"https://github.com/rwobben","followers_url":"https://api.github.com/users/rwobben/followers","following_url":"https://api.github.com/users/rwobben/following{/other_user}","gists_url":"https://api.github.com/users/rwobben/gists{/gist_id}","starred_url":"https://api.github.com/users/rwobben/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/rwobben/subscriptions","organizations_url":"https://api.github.com/users/rwobben/orgs","repos_url":"https://api.github.com/users/rwobben/repos","events_url":"https://api.github.com/users/rwobben/events{/privacy}","received_events_url":"https://api.github.com/users/rwobben/received_events","type":"User","site_admin":false},"labels":[{"url":"https://api.github.com/repos/rwobben/paytime/labels/enhancement","name":"enhancement","color":"84b6eb"}],"state":"open","locked":false,"assignee":{"login":"rwobben","id":16528407,"avatar_url":"https://avatars.githubusercontent.com/u/16528407?v=3","gravatar_id":"","url":"https://api.github.com/users/rwobben","html_url":"https://github.com/rwobben","followers_url":"https://api.github.com/users/rwobben/followers","following_url":"https://api.github.com/users/rwobben/following{/other_user}","gists_url":"https://api.github.com/users/rwobben/gists{/gist_id}","starred_url":"https://api.github.com/users/rwobben/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/rwobben/subscriptions","organizations_url":"https://api.github.com/users/rwobben/orgs","repos_url":"https://api.github.com/users/rwobben/repos","events_url":"https://api.github.com/users/rwobben/events{/privacy}","received_events_url":"https://api.github.com/users/rwobben/received_events","type":"User","site_admin":false},"milestone":null,"comments":41,"created_at":"2016-01-07T12:19:48Z","updated_at":"2016-01-08T17:18:00Z","closed_at":null,"body":"Am I right that we have already a part of that code written in our first session.\r\nif so, then we have to change it a little so there is a check if the account exist and then use the function we already have. "},"comment":{"url":"https://api.github.com/repos/rwobben/paytime/issues/comments/170062427","html_url":"https://github.com/rwobben/paytime/issues/16#issuecomment-170062427","issue_url":"https://api.github.com/repos/rwobben/paytime/issues/16","id":170062427,"user":{"login":"GetContented","id":5661934,"avatar_url":"https://avatars.githubusercontent.com/u/5661934?v=3","gravatar_id":"","url":"https://api.github.com/users/GetContented","html_url":"https://github.com/GetContented","followers_url":"https://api.github.com/users/GetContented/followers","following_url":"https://api.github.com/users/GetContented/following{/other_user}","gists_url":"https://api.github.com/users/GetContented/gists{/gist_id}","starred_url":"https://api.github.com/users/GetContented/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/GetContented/subscriptions","organizations_url":"https://api.github.com/users/GetContented/orgs","repos_url":"https://api.github.com/users/GetContented/repos","events_url":"https://api.github.com/users/GetContented/events{/privacy}","received_events_url":"https://api.github.com/users/GetContented/received_events","type":"User","site_admin":false},"created_at":"2016-01-08T17:18:00Z","updated_at":"2016-01-08T17:18:00Z","body":"    doDepositAccount :: [Account] -> IO [Account] \r\n    doDepositAccount accounts  = do \r\n      putStrLn \"On which account to do want to deposit?\"\r\n      accountNameToDeposit <- getLine\r\n      let newAccounts = depositAmountInAccount accountNameToDeposit 100 accounts -- 100 is a dummy amount here because you haven't got the amount yet\r\n      return newAccounts\r\n\r\n    depositAmountInAccount :: String -> Amount -> [Account]\r\n    depositAmountInAccount acctName amount accounts = newAccounts\r\n      where newAccounts           = map depositIfAccount accounts\r\n            depositIfAccount acct = if accountName acct == acctName\r\n                                    then deposit amount \"Dummy Description\" acct\r\n                                    else acct\r\n  "}}