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

chore(exam-correct): remove TODOs

Browse Source
This commit is contained in:
Sarah Vaupel 2020-08-12 17:40:43 +02:00
parent ee5a0052a1
commit 527fd8a5ca
2 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Handler/Exam/Correct.hs
View File

@ -21,9 +21,6 @@ import Utils.Exam
minNeedleLength :: Int minNeedleLength :: Int
minNeedleLength = 3 minNeedleLength = 3
-- TODO use according to description
-- TODO maybe renders minNeedleLength unnecessary?
-- TODO maybe also perform user and ldap lookups if there are fewer results than this number? (TODO add user as exam participant if not already participant)
-- | Maximum number of participant matches to show. Also serves as an upper limit to the number of query results from participant lookups. -- | Maximum number of participant matches to show. Also serves as an upper limit to the number of query results from participant lookups.
maxCountUserMatches :: Integral a => a maxCountUserMatches :: Integral a => a
maxCountUserMatches = 10 maxCountUserMatches = 10

5
src/Handler/ExternalExam/Correct.hs
View File

@ -20,8 +20,6 @@ import Utils.Exam
minNeedleLength :: Int minNeedleLength :: Int
minNeedleLength = 3 -- TODO rethink minNeedleLength = 3 -- TODO rethink
-- TODO use according to description
-- TODO maybe renders minNeedleLength unnecessary?
-- | Maximum number of user matches to show. Also serves as an upper limit to the number of query results from user and/or ldap lookups. -- | Maximum number of user matches to show. Also serves as an upper limit to the number of query results from user and/or ldap lookups.
maxCountUserMatches :: Integral a => a maxCountUserMatches :: Integral a => a
maxCountUserMatches = 10 maxCountUserMatches = 10
@ -53,8 +51,7 @@ getEECorrectR tid ssh coursen examn = do
siteLayoutMsg heading $ do siteLayoutMsg heading $ do
setTitleI heading setTitleI heading
let let examCorrectExplanation = $(i18nWidgetFile "external-exam-correct-explanation")
examCorrectExplanation = $(i18nWidgetFile "external-exam-correct-explanation")
$(widgetFile "exam-correct") $(widgetFile "exam-correct")