From ee5c8da8c9469ee4c81702685e2b8de06bfcfaed Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 30 Nov 2010 09:09:46 +0200
Subject: [PATCH] Using blaze writeHtmlEscapedChar for Textarea

---
 Yesod/Form/Profiles.hs | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/Yesod/Form/Profiles.hs b/Yesod/Form/Profiles.hs
index b42bf3c7..f0a5d7f0 100644
--- a/Yesod/Form/Profiles.hs
+++ b/Yesod/Form/Profiles.hs
@@ -28,7 +28,7 @@ import Network.URI (parseURI)
 import Database.Persist (PersistField)
 import Text.HTML.SanitizeXSS (sanitizeBalance)
 
-import Blaze.ByteString.Builder.Char.Utf8 (writeChar)
+import qualified Blaze.ByteString.Builder.Html.Utf8 as B
 import Blaze.ByteString.Builder (fromWrite4List, writeByteString)
 
 import Yesod.Internal (lbsToChars)
@@ -117,13 +117,8 @@ instance ToHtml Textarea where
         Html . fromWrite4List writeHtmlEscapedChar . unTextarea
       where
         -- Taken from blaze-builder and modified with newline handling.
-        writeHtmlEscapedChar '<'  = writeByteString "&lt;"
-        writeHtmlEscapedChar '>'  = writeByteString "&gt;"
-        writeHtmlEscapedChar '&'  = writeByteString "&amp;"
-        writeHtmlEscapedChar '"'  = writeByteString "&quot;"
-        writeHtmlEscapedChar '\'' = writeByteString "&apos;"
         writeHtmlEscapedChar '\n' = writeByteString "<br>"
-        writeHtmlEscapedChar c    = writeChar c
+        writeHtmlEscapedChar c    = B.writeHtmlEscapedChar c
 
 textareaFieldProfile :: FieldProfile sub y Textarea
 textareaFieldProfile = FieldProfile