Fix selectField selected attr

2011-05-18 11:26:20 +03:00 · 2011-05-18 11:26:20 +03:00 · 7a9f7cf798
commit 7a9f7cf798
parent 87535d468b
1 changed files with 1 additions and 1 deletions
--- 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