diff --git a/IHP/View/CSSFramework.hs b/IHP/View/CSSFramework.hs index b4f78545a..d3600e9cb 100644 --- a/IHP/View/CSSFramework.hs +++ b/IHP/View/CSSFramework.hs @@ -166,7 +166,7 @@ bootstrap = def { styledFlashMessage, styledSubmitButtonClass, styledFormGroupCl tailwind :: CSSFramework tailwind = def { styledFlashMessage, styledSubmitButtonClass, styledFormGroupClass, styledFormFieldHelp, styledInputClass, styledInputInvalidClass, styledValidationResultClass } where - styledFlashMessage _ (SuccessFlashMessage message) = [hsx|
{message}
|] + styledFlashMessage _ (SuccessFlashMessage message) = [hsx|
{message}
|] styledFlashMessage _ (ErrorFlashMessage message) = [hsx|
{message}
|] styledInputClass FormField {} = "form-control" @@ -179,4 +179,4 @@ tailwind = def { styledFlashMessage, styledSubmitButtonClass, styledFormGroupCla styledFormGroupClass = "flex flex-wrap -mx-3 mb-6" - styledValidationResultClass = "text-red-500 text-xs italic" \ No newline at end of file + styledValidationResultClass = "text-red-500 text-xs italic"