From 7a9f7cf79846bbfc7613fea9106affac268c0458 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 18 May 2011 11:26:20 +0300
Subject: [PATCH] Fix selectField selected attr

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

diff --git a/Yesod/Form/Fields.hs b/Yesod/Form/Fields.hs
index f73b5c43..91df3893 100644
--- a/Yesod/Form/Fields.hs
+++ b/Yesod/Form/Fields.hs
@@ -295,7 +295,7 @@ selectField opts = Field -- FIXME won't work for optional yet
     $if not isReq
         <option value=none>
     $forall pair <- pairs
-        <option value=#{show $ fst pair} :(==) val (fst $ snd pair):selected>#{fst $ snd pair}
+        <option value=#{show $ fst pair} :(==) val (pack $ show $ fst pair):selected>#{fst $ snd pair}
 |]
     }
   where