diff --git a/src/View/User.hs b/src/View/User.hs index 0010c79..b40ef79 100644 --- a/src/View/User.hs +++ b/src/View/User.hs @@ -316,7 +316,7 @@ userManagePage l10n locale userDetails authOverviews version mcookie = H.p $ do H.toHtml $ translate "Authentication details" mapM_ - (\(MT.AuthOverview aoid comment method) -> H.form + (\(MT.AuthOverview aoid _ comment method) -> H.form H.! HA.method "post" H.! HA.action ("/" <> fromString (show $ linkURI $