diff --git a/yesod-form/Yesod/Form/Fields.hs b/yesod-form/Yesod/Form/Fields.hs
index 7bdeb516..8833b2fc 100644
--- a/yesod-form/Yesod/Form/Fields.hs
+++ b/yesod-form/Yesod/Form/Fields.hs
@@ -267,9 +267,9 @@ $newline never
passwordField :: Monad m => RenderMessage (HandlerSite m) FormMessage => Field m Text
passwordField = Field
{ fieldParse = parseHelper $ Right
- , fieldView = \theId name attrs val isReq -> toWidget [hamlet|
+ , fieldView = \theId name attrs _ isReq -> toWidget [hamlet|
$newline never
-
+
|]
, fieldEnctype = UrlEncoded
}