From 45821bd557e77c2c1df4472622f6e2b02901b56a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 2 Dec 2012 23:10:11 -0400 Subject: [PATCH] tweak --- Assistant/WebApp/Form.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Assistant/WebApp/Form.hs b/Assistant/WebApp/Form.hs index 861afb17ed..b4de15b24d 100644 --- a/Assistant/WebApp/Form.hs +++ b/Assistant/WebApp/Form.hs @@ -36,7 +36,7 @@ passwordField = F.passwordField } {- Makes a note widget be displayed after a field. -} -withNote :: RenderMessage master FormMessage => Field sub master a -> GWidget sub master () -> Field sub master a +withNote :: Field sub master v -> GWidget sub master () -> Field sub master v withNote field note = field { fieldView = newview } where newview theId name attrs val isReq =