From 4dbeff18c0fae42f856cb0366fb92e85c09a1e8a Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 28 Mar 2019 11:43:42 +0100 Subject: [PATCH] Cleanup some redundant submitButtons --- src/Auth/LDAP.hs | 1 - src/Handler/Sheet.hs | 3 +-- 2 files changed, 1 insertion(+), 3 deletions(-) diff --git a/src/Auth/LDAP.hs b/src/Auth/LDAP.hs index 45ced319f..a399a4c52 100644 --- a/src/Auth/LDAP.hs +++ b/src/Auth/LDAP.hs @@ -59,7 +59,6 @@ campusForm :: ( RenderMessage site FormMessage campusForm = CampusLogin <$> areq ciField (fslpI MsgCampusIdent "user.name@campus.lmu.de" & setTooltip MsgCampusIdentNote) Nothing <*> areq passwordField (fslI MsgCampusPassword) Nothing - <* submitButton campusLogin :: forall site. ( YesodAuth site diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs index e378a74d5..7faa02e29 100644 --- a/src/Handler/Sheet.hs +++ b/src/Handler/Sheet.hs @@ -123,7 +123,6 @@ makeSheetForm msId template = identifyForm FIDsheet $ \html -> do <*> aopt (multiFileField $ oldFileIds SheetMarking) (fslI MsgSheetMarking & setTooltip MsgSheetMarkingTip) (sfMarkingF <$> template) <*> aopt htmlField (fslI MsgSheetMarking) (sfMarkingText <$> template) - <* submitButton return $ case result of FormSuccess sheetResult | errorMsgs <- validateSheet mr sheetResult @@ -787,7 +786,7 @@ postSCorrR = getSCorrR getSCorrR tid ssh csh shn = do Entity shid Sheet{..} <- runDB $ fetchSheet tid ssh csh shn - ((res,formWidget), formEnctype) <- runFormPost . identifyForm FIDcorrectors . renderAForm FormStandard $ formToAForm (correctorForm shid) <* submitButton + ((res,formWidget), formEnctype) <- runFormPost . identifyForm FIDcorrectors . renderAForm FormStandard $ formToAForm (correctorForm shid) case res of FormFailure errs -> mapM_ (addMessage Error . toHtml) errs