Added Ord instance for Textarea

2012-05-31 07:24:15 +03:00 · 2012-05-31 07:24:15 +03:00 · 4929ece70c
commit 4929ece70c
parent 3a21986165
1 changed files with 1 additions and 1 deletions
--- a/yesod-form/Yesod/Form/Fields.hs
+++ b/yesod-form/Yesod/Form/Fields.hs
@ -167,7 +167,7 @@ $# FIXME: There was a class="html" attribute, for what purpose?
 -- | A newtype wrapper around a 'Text' that converts newlines to HTML
 -- br-tags.
 newtype Textarea = Textarea { unTextarea :: Text }
-    deriving (Show, Read, Eq, PersistField)
+    deriving (Show, Read, Eq, PersistField, Ord)
 instance ToHtml Textarea where
    toHtml =
        unsafeByteString