From d5eb1ce0262767d2cd5c70f2eb0823d98ae38288 Mon Sep 17 00:00:00 2001
From: ncaq <ncaq@ncaq.net>
Date: Thu, 22 Jun 2017 10:05:39 +0900
Subject: [PATCH] fixed: yesod-form: textareaField: writeHtmlEscapedChar:
 convert "\r\n" to "<br>"

---
 yesod-form/Yesod/Form/Fields.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/yesod-form/Yesod/Form/Fields.hs b/yesod-form/Yesod/Form/Fields.hs
index 8833b2fc..5fe98d77 100644
--- a/yesod-form/Yesod/Form/Fields.hs
+++ b/yesod-form/Yesod/Form/Fields.hs
@@ -226,6 +226,7 @@ instance ToHtml Textarea where
         . unTextarea
       where
         -- Taken from blaze-builder and modified with newline handling.
+        writeHtmlEscapedChar '\r' = mempty
         writeHtmlEscapedChar '\n' = writeByteString "<br>"
         writeHtmlEscapedChar c    = B.writeHtmlEscapedChar c