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

chore: remove redundant MultiWayIf

Browse Source
This commit is contained in:
Wolfgang Witt 2021-02-08 11:31:49 +01:00 committed by Wolfgang Witt
parent 385af53372
commit f0f6706bcf
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Handler/Utils/Exam.hs
View File

@ -460,9 +460,9 @@ examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences
accCost' <- (+) accCost <$> ST.readArray minima j accCost' <- (+) accCost <$> ST.readArray minima j
-- traceM $ show ((fromRational :: Rational -> Centi) <$> accCost', lineIx, (i, pred j)) -- traceM $ show ((fromRational :: Rational -> Centi) <$> accCost', lineIx, (i, pred j))
let accMap' = (lineIxs List.!! lineIx, map (review wordIx) [i .. pred j]) : accMap let accMap' = (lineIxs List.!! lineIx, map (review wordIx) [i .. pred j]) : accMap
if if i > 0
| i > 0 -> accumResult (succ lineIx) i (accCost', accMap') then accumResult (succ lineIx) i (accCost', accMap')
| otherwise -> return (accCost', accMap') else return (accCost', accMap')
lineIxs = reverse $ map (view _1) $ take usedLines lineLengths lineIxs = reverse $ map (view _1) $ take usedLines lineLengths
in accumResult 0 (Map.size wordMap) (0, []) in accumResult 0 (Map.size wordMap) (0, [])