From f687b15d4d3f55fb231cd03b773b163ed131b129 Mon Sep 17 00:00:00 2001 From: Joris Guyonvarch Date: Sun, 19 Jul 2015 18:50:49 +0200 Subject: Send the login token by email --- src/server/Model/Message.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/server/Model') diff --git a/src/server/Model/Message.hs b/src/server/Model/Message.hs index 6b4287e..d84aaa9 100644 --- a/src/server/Model/Message.hs +++ b/src/server/Model/Message.hs @@ -5,10 +5,11 @@ module Model.Message ) where import Data.Aeson +import Data.Text (Text) import GHC.Generics data Message = Message - { message :: String + { message :: Text } deriving (Show, Generic) instance FromJSON Message -- cgit v1.2.3