diff --git a/yesod-form/ChangeLog.md b/yesod-form/ChangeLog.md index 1251b945..af0f887b 100644 --- a/yesod-form/ChangeLog.md +++ b/yesod-form/ChangeLog.md @@ -1,3 +1,7 @@ +## 1.6.3 + +* Changed `Textarea` to derive `IsString` [#1514](https://github.com/yesodweb/yesod/pull/1514) + ## 1.6.2 * Move `addClass` from private/undocumented in `Yesod.Form.Bootstrap3` to `Yesod.Form.Functions` [#1510](https://github.com/yesodweb/yesod/pull/1510) diff --git a/yesod-form/Yesod/Form/Fields.hs b/yesod-form/Yesod/Form/Fields.hs index a79d75cb..d64776ff 100644 --- a/yesod-form/Yesod/Form/Fields.hs +++ b/yesod-form/Yesod/Form/Fields.hs @@ -106,6 +106,8 @@ import Data.Attoparsec.Text (Parser, char, string, digit, skipSpace, endOfInput, import Yesod.Persist.Core +import Data.String (IsString) + #if !MIN_VERSION_base(4,8,0) import Data.Monoid #endif @@ -217,7 +219,7 @@ $newline never -- If this text is then placed verbatim into HTML, the lines won't be separated, thus the need for replacing with @\
@ tags). -- If you don't need this functionality, simply use 'unTextarea' to access the raw text. newtype Textarea = Textarea { unTextarea :: Text } - deriving (Show, Read, Eq, PersistField, Ord, ToJSON, FromJSON) + deriving (Show, Read, Eq, PersistField, Ord, ToJSON, FromJSON, IsString) instance PersistFieldSql Textarea where sqlType _ = SqlString instance ToHtml Textarea where diff --git a/yesod-form/yesod-form.cabal b/yesod-form/yesod-form.cabal index f3e2fa51..d6953929 100644 --- a/yesod-form/yesod-form.cabal +++ b/yesod-form/yesod-form.cabal @@ -1,5 +1,5 @@ name: yesod-form -version: 1.6.2 +version: 1.6.3 license: MIT license-file: LICENSE author: Michael Snoyman