From 28e0bf88aa60ab4720654674d42ca1c64e2f0809 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 8 Aug 2012 17:04:18 +0300
Subject: [PATCH] Bootstrap friendly radio markup (#394)

---
 yesod-form/Yesod/Form/Fields.hs | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/yesod-form/Yesod/Form/Fields.hs b/yesod-form/Yesod/Form/Fields.hs
index 3ec98b55..43257b8c 100644
--- a/yesod-form/Yesod/Form/Fields.hs
+++ b/yesod-form/Yesod/Form/Fields.hs
@@ -380,15 +380,17 @@ $newline never
 |])
     (\theId name isSel -> [whamlet|
 $newline never
-<div>
-    <input id=#{theId}-none type=radio name=#{name} value=none :isSel:checked>
-    <label for=#{theId}-none>_{MsgSelectNone}
+<label .radio for=#{theId}-none>
+    <div>
+        <input id=#{theId}-none type=radio name=#{name} value=none :isSel:checked>
+        _{MsgSelectNone}
 |])
     (\theId name attrs value isSel text -> [whamlet|
 $newline never
-<div>
-    <input id=#{theId}-#{value} type=radio name=#{name} value=#{value} :isSel:checked *{attrs}>
-    <label for=#{theId}-#{value}>#{text}
+<label .radio for=#{theId}-#{value}>
+    <div>
+        <input id=#{theId}-#{value} type=radio name=#{name} value=#{value} :isSel:checked *{attrs}>
+        \#{text}
 |])
 
 boolField :: RenderMessage master FormMessage => Field sub master Bool