mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

tweak

Browse source
This commit is contained in:
Joey Hess 2012-12-02 23:10:11 -04:00
parent 6991956057
commit 45821bd557
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/WebApp/Form.hs
View file

@ -36,7 +36,7 @@ passwordField = F.passwordField
} }
{- Makes a note widget be displayed after a field. -} {- 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 } withNote field note = field { fieldView = newview }
where where
newview theId name attrs val isReq = newview theId name attrs val isReq =