From 86a96decdb8892b10c5314eb916ef15a64204450 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 13 Nov 2016 00:49:32 +0100
Subject: Send weekly activity at start of week about previous week

---
 src/server/Controller/SignIn.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/server/Controller/SignIn.hs')

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
-- 
cgit v1.2.3