From 8ca2f3e2b47e08e95cc940abc4294420b2679b94 Mon Sep 17 00:00:00 2001
From: Greg Weber <greg@gregweber.info>
Date: Fri, 16 Jul 2010 09:41:06 -0700
Subject: [PATCH] derive standard classes for JqueryDay field

---
 Yesod/Form.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/Yesod/Form.hs b/Yesod/Form.hs
index ec18b046..d3e8d4a3 100644
--- a/Yesod/Form.hs
+++ b/Yesod/Form.hs
@@ -442,6 +442,14 @@ $$(function(){$$("#$name$").datepicker({dateFormat:'yy-mm-dd'})});
 -- 'ToFormField' instance.
 newtype JqueryDay = JqueryDay { unJqueryDay :: Day }
     deriving PersistField
+instance Show JqueryDay where
+    show = show . unJqueryDay
+instance Read JqueryDay where
+    readsPrec i s = let [(day, str)] = readsPrec i s :: [(Day, String)]
+                    in [((JqueryDay day), str)]
+instance Eq JqueryDay where
+    x == y = (unJqueryDay x) == (unJqueryDay y)
+
 instance ToFormField JqueryDay where
     toFormField = applyFormTypeWrappers JqueryDay unJqueryDay jqueryDayField
 instance ToFormField (Maybe JqueryDay) where