From 4929ece70c2e78e5aa628478fc59ae82b29d8621 Mon Sep 17 00:00:00 2001
From: Michael <michael@snoyman.com>
Date: Thu, 31 May 2012 07:24:15 +0300
Subject: [PATCH] Added Ord instance for Textarea

---
 yesod-form/Yesod/Form/Fields.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/yesod-form/Yesod/Form/Fields.hs b/yesod-form/Yesod/Form/Fields.hs
index ea88858c..fcca7344 100644
--- 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