From d985e879e574c770453590791bc35352c2632d01 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Wed, 12 Aug 2015 10:16:59 +0200
Subject: Translating sign in page and mail

---
 src/server/Model/Mail.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/server/Model/Mail.hs')

diff --git a/src/server/Model/Mail.hs b/src/server/Model/Mail.hs
index 7ee8a8e..20addee 100644
--- a/src/server/Model/Mail.hs
+++ b/src/server/Model/Mail.hs
@@ -6,7 +6,8 @@ import Data.Text (Text)
 import qualified Data.Text.Lazy as LT
 
 data Mail = Mail
-  { to :: [Text]
+  { from :: Text
+  , to :: [Text]
   , subject :: Text
   , plainBody :: LT.Text
   , htmlBody :: LT.Text
-- 
cgit v1.2.3