diff --git a/src/Vervis/Handler/Client.hs b/src/Vervis/Handler/Client.hs index 26fe558..02070a0 100644 --- a/src/Vervis/Handler/Client.hs +++ b/src/Vervis/Handler/Client.hs @@ -1289,8 +1289,8 @@ getPublishResolveR = do postPublishResolveR :: Handler () postPublishResolveR = do - federation <- getsYesod $ appFederation . appSettings - unless federation badMethod + --federation <- getsYesod $ appFederation . appSettings + --unless federation badMethod (uTicket, (uCap, cap)) <- runFormPostRedirect PublishResolveR resolveForm