yesod-form 1.3.3 → 1.3.4

raw patch · 2 files changed

+6/−4 lines, 2 files

Files

• Yesod/Form/Fields.hs +5/−3
• yesod-form.cabal +1/−1

@@ -64,8 +64,8 @@ import Data.Text.Encoding (encodeUtf8, decodeUtf8With) import Data.Text.Encoding.Error (lenientDecode) import Network.URI (parseURI)-import Database.Persist.Sql (PersistField, PersistFieldSql)-import Database.Persist (Entity (..))+import Database.Persist.Sql (PersistField, PersistFieldSql (..))+import Database.Persist (Entity (..), SqlType (SqlString)) import Text.HTML.SanitizeXSS (sanitizeBalance) import Control.Monad (when, unless) import Data.Maybe (listToMaybe, fromMaybe)@@ -168,7 +168,9 @@ -- | A newtype wrapper around a 'Text' that converts newlines to HTML -- br-tags. newtype Textarea = Textarea { unTextarea :: Text }-    deriving (Show, Read, Eq, PersistField, PersistFieldSql, Ord)+    deriving (Show, Read, Eq, PersistField, Ord)+instance PersistFieldSql Textarea where+    sqlType _ = SqlString instance ToHtml Textarea where     toHtml =         unsafeByteString

@@ -1,5 +1,5 @@ name:            yesod-form-version:         1.3.3+version:         1.3.4 license:         MIT license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>