fixed: yesod-form: textareaField: writeHtmlEscapedChar: convert "\r\n" to "<br>"

2017-06-22 10:05:39 +09:00 · 2017-06-22 10:05:39 +09:00 · d5eb1ce026
commit d5eb1ce026
parent 0223c0a586
1 changed files with 1 additions and 0 deletions
--- 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