fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(exams): default exam mode to Nothing

Browse Source
This commit is contained in:
Gregor Kleen 2020-09-29 10:14:27 +02:00
parent 33ae83faa7
commit 4b459ea143
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/Utils/Form.hs
View File

@ -1961,9 +1961,9 @@ customPresetForm :: forall a custom preset msg.
-> Maybe (Maybe a) -> Maybe (Maybe a)
-> AForm Handler (Maybe a) -> AForm Handler (Maybe a)
customPresetForm cpL noneOption customOption toOption customForm fs mPrev customPresetForm cpL noneOption customOption toOption customForm fs mPrev
= explainedMultiActionA actionMap options fs mPrev' = explainedMultiActionA actionMap options fs $ Just mPrev'
where where
mPrev' = flip fmap mPrev $ preview (_Just . cpL) >>> \case mPrev' = case mPrev ^? _Just . _Just . cpL of
Nothing -> CPFONone Nothing -> CPFONone
Just (Left _) -> CPFOCustom Just (Left _) -> CPFOCustom
Just (Right p) -> CPFOPreset p Just (Right p) -> CPFOPreset p