diff options
| author | Joris | 2016-11-13 00:49:32 +0100 |
|---|---|---|
| committer | Joris | 2016-11-13 00:49:32 +0100 |
| commit | 86a96decdb8892b10c5314eb916ef15a64204450 (patch) | |
| tree | 6f41742d0466f77948680964188144fbff036902 /src/server/Controller/SignIn.hs | |
| parent | bf6a0a0b32a7efb88f75c2e89b84d6907aeb10bc (diff) | |
| download | budget-86a96decdb8892b10c5314eb916ef15a64204450.tar.gz budget-86a96decdb8892b10c5314eb916ef15a64204450.tar.bz2 budget-86a96decdb8892b10c5314eb916ef15a64204450.zip | |
Send weekly activity at start of week about previous week
Diffstat (limited to 'src/server/Controller/SignIn.hs')
| -rw-r--r-- | src/server/Controller/SignIn.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/server/Controller/SignIn.hs b/src/server/Controller/SignIn.hs index 0fbe7c5..1b8121d 100644 --- a/src/server/Controller/SignIn.hs +++ b/src/server/Controller/SignIn.hs @@ -45,7 +45,7 @@ signIn conf login = "?signInToken=", token ] - maybeSentMail <- liftIO . sendMail $ SignIn.getMail conf (entityVal user) url [login] + maybeSentMail <- liftIO . sendMail $ SignIn.mail conf (entityVal user) url [login] case maybeSentMail of Right _ -> status ok200 |