From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 11 Nov 2016 22:39:05 +0000 (-0400)
Subject: remove redundant constraint
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~283^2~38
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=989520a104415eec9c2c56be6b9124dc9452656c;p=git-annex.git

remove redundant constraint
---

diff --git a/Assistant/WebApp/Form.hs b/Assistant/WebApp/Form.hs
index 1eb48b2e0e..c2687c0dab 100644
--- a/Assistant/WebApp/Form.hs
+++ b/Assistant/WebApp/Form.hs
@@ -57,7 +57,7 @@ withNote field note = field { fieldView = newview }
 		in [whamlet|^{fieldwidget}&nbsp;&nbsp;<span>^{note}</span>|]
 
 {- Note that the toggle string must be unique on the form. -}
-withExpandableNote :: (Monad m, ToWidget (HandlerSite m) w) => Field m v -> (String, w) -> Field m v
+withExpandableNote :: (ToWidget (HandlerSite m) w) => Field m v -> (String, w) -> Field m v
 withExpandableNote field (toggle, note) = withNote field $ [whamlet|
 <a .btn .btn-default data-toggle="collapse" data-target="##{ident}">#{toggle}</a>
 <div ##{ident} .collapse>