From 440d6e331faad98272437e66e3881af1b3c470cc Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 26 Apr 2013 15:20:31 -0400
Subject: [PATCH] tweak

This works around a bug in the EvilSplicer
---
 Assistant/WebApp/Form.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/Assistant/WebApp/Form.hs b/Assistant/WebApp/Form.hs
index 4297064742..7664fc301d 100644
--- a/Assistant/WebApp/Form.hs
+++ b/Assistant/WebApp/Form.hs
@@ -49,15 +49,14 @@ withNote field note = field { fieldView = newview }
 
 {- Note that the toggle string must be unique on the form. -}
 withExpandableNote :: Field sub master v -> (String, GWidget sub master ()) -> Field sub master v
-withExpandableNote field (toggle, note) = withNote field expandablenote
-  where
-  	ident = "toggle_" ++ toggle
-  	expandablenote = [whamlet|
+withExpandableNote field (toggle, note) = withNote field $ [whamlet|
 <a .btn data-toggle="collapse" data-target="##{ident}">
   #{toggle}
 <div ##{ident} .collapse>
   ^{note}
 |]
+  where
+  	ident = "toggle_" ++ toggle
 
 data EnableEncryption = SharedEncryption | NoEncryption
 	deriving (Eq)