remove redundant constraint
This commit is contained in:
parent
4dcc175822
commit
9cd3fb4110
2 changed files with 2 additions and 2 deletions
|
@ -49,7 +49,7 @@ passwordField = F.passwordField
|
|||
}
|
||||
|
||||
{- Makes a note widget be displayed after a field. -}
|
||||
withNote :: (Monad m, ToWidget (HandlerSite m) a) => Field m v -> a -> Field m v
|
||||
withNote :: (ToWidget (HandlerSite m) a) => Field m v -> a -> Field m v
|
||||
withNote field note = field { fieldView = newview }
|
||||
where
|
||||
newview theId name attrs val isReq =
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue