haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Using blaze writeHtmlEscapedChar for Textarea

Browse Source
This commit is contained in:
Michael Snoyman 2010-11-30 09:09:46 +02:00
parent ac809e8316
commit ee5c8da8c9
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Yesod/Form/Profiles.hs
View File

@ -28,7 +28,7 @@ import Network.URI (parseURI)
import Database.Persist (PersistField) import Database.Persist (PersistField)
import Text.HTML.SanitizeXSS (sanitizeBalance) 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 Blaze.ByteString.Builder (fromWrite4List, writeByteString)
import Yesod.Internal (lbsToChars) import Yesod.Internal (lbsToChars)
@ -117,13 +117,8 @@ instance ToHtml Textarea where
Html . fromWrite4List writeHtmlEscapedChar . unTextarea Html . fromWrite4List writeHtmlEscapedChar . unTextarea
where where
-- Taken from blaze-builder and modified with newline handling. -- 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 '\n' = writeByteString "<br>"
writeHtmlEscapedChar c = writeChar c writeHtmlEscapedChar c = B.writeHtmlEscapedChar c
textareaFieldProfile :: FieldProfile sub y Textarea textareaFieldProfile :: FieldProfile sub y Textarea
textareaFieldProfile = FieldProfile textareaFieldProfile = FieldProfile