From a5e8776175d2d45c4f380d69fc350f512974697a Mon Sep 17 00:00:00 2001 From: Austin Erlandson Date: Sun, 25 Apr 2021 17:46:50 -0500 Subject: [PATCH] Let user know when their email is invalid (#504) Co-authored-by: Austin Erlandson --- fission-web-server/library/Fission/Web/Server/Email/Error.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/fission-web-server/library/Fission/Web/Server/Email/Error.hs b/fission-web-server/library/Fission/Web/Server/Email/Error.hs index c88a3be13..517020ac9 100644 --- a/fission-web-server/library/Fission/Web/Server/Email/Error.hs +++ b/fission-web-server/library/Fission/Web/Server/Email/Error.hs @@ -13,8 +13,8 @@ newtype CouldNotSend = CouldNotSend ClientError ) instance Display CouldNotSend where - display (CouldNotSend _) = "An error occured while trying to send an email" + display (CouldNotSend _) = "We couldn't send the verification email, please check you've provided a valid email address." instance ToServerError CouldNotSend where - toServerError couldNotSend = err500 { errBody = displayLazyBS couldNotSend } + toServerError couldNotSend = err422 { errBody = displayLazyBS couldNotSend }