diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs index fdcc1c14b..a7f672cc7 100644 --- a/src/Handler/Sheet.hs +++ b/src/Handler/Sheet.hs @@ -83,7 +83,7 @@ makeSheetForm msId template = identForm FIDsheet $ \html -> do <*> aopt utcTimeField (fsb "Sichtbar ab") (sfVisibleFrom <$> template) <*> areq utcTimeField (fsb "Abgabe ab") (sfActiveFrom <$> template) <*> areq utcTimeField (fsb "Abgabefrist") (sfActiveTo <$> template) - <*> aopt (multiFileField Nothing $ oldFileIds SheetExercise) (fsb "Aufgabenstellung") (sfSheetF <$> template) + <*> aopt (multiFileField $ oldFileIds SheetExercise) (fsb "Aufgabenstellung") (sfSheetF <$> template) <*> aopt utcTimeField (fsb "Hinweis ab") (sfHintFrom <$> template) <*> fileAFormOpt (fsb "Hinweis") <*> aopt utcTimeField (fsb "Lösung ab") (sfSolutionFrom <$> template) diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs index 1c41fab33..bbd547277 100644 --- a/src/Handler/Utils/Form.hs +++ b/src/Handler/Utils/Form.hs @@ -245,10 +245,8 @@ schoolEntField = selectField schools where schools = optionsPersist [] [Asc SchoolName] schoolName -multiFileField :: Maybe Bool -- ^ Override @unpackZips@-checkbox? - -> Handler (Set FileId) -- ^ Existing files to allow keeping - -> Field Handler (Source Handler (Either FileId File)) -multiFileField doUnpackOverride permittedFiles' = Field{..} +multiFileField :: Handler (Set FileId) -> Field Handler (Source Handler (Either FileId File)) +multiFileField permittedFiles' = Field{..} where fieldEnctype = Multipart fieldParse vals files @@ -272,9 +270,7 @@ multiFileField doUnpackOverride permittedFiles' = Field{..} | otherwise = yieldM . acceptFile mapM_ handleFile files .| C.map Right where - doUnpack = case doUnpackOverride of - Nothing -> unpackZips `elem` vals - Just o -> o + doUnpack = unpackZips `elem` vals fieldView fieldId fieldName attrs val req = do pVals <- handlerToWidget permittedFiles' sentVals <- for val $ \src -> handlerToWidget . sourceToList $ src .| takeLefts diff --git a/templates/multiFileField.hamlet b/templates/multiFileField.hamlet index 384408d49..62edf90ec 100644 --- a/templates/multiFileField.hamlet +++ b/templates/multiFileField.hamlet @@ -16,9 +16,6 @@ $forall FileUploadInfo{..} <- fileInfos $# new files -$case doUnpackOverride - $of Nothing -