diff --git a/src/Handler/Users.hs b/src/Handler/Users.hs
index bfad22373..a9ddbcb7f 100644
--- a/src/Handler/Users.hs
+++ b/src/Handler/Users.hs
@@ -216,7 +216,7 @@ postAdminUserR uuid = do
     let heading =
           [whamlet|_{MsgAccessRightsFor} ^{nameWidget userDisplayName userSurname}|]
     -- Delete Button needed in data-delete
-    (btnWgt, btnEnctype) <- generateFormPost (identifyForm FIDUserDelete $ buttonForm :: Form ButtonDelete)
+    (btnWgt, btnEnctype) <- generateFormPost (identifyForm FIDUserDelete buttonForm :: Form ButtonDelete)
     let btnForm = wrapForm btnWgt def
           { formAction   = Just $ SomeRoute $ AdminUserDeleteR uuid
           , formEncoding = btnEnctype
@@ -231,7 +231,7 @@ postAdminUserR uuid = do
 postAdminUserDeleteR :: CryptoUUIDUser -> Handler Html
 postAdminUserDeleteR uuid = do
   uid <- decrypt uuid
-  ((btnResult,_), _) <- runFormPost (identifyForm FIDUserDelete $ buttonForm :: Form ButtonDelete)
+  ((btnResult,_), _) <- runFormPost (identifyForm FIDUserDelete buttonForm :: Form ButtonDelete)
   case btnResult of
     (FormSuccess BtnDelete) -> do
       User{..}  <- runDB $ get404 uid