Skip to content

GitLab

Commit 72e5c006 authored by Henrik Tramberend's avatar Henrik Tramberend
Browse files

Fix topic exclusion

parent 8c8df064
Show whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
app/tester.hs
View file @ 72e5c006
......@@ -274,7 +274,7 @@ joinPandoc list =
filterQuestions
:: [T.Text] -> [T.Text] -> [(Question, FilePath)] -> [(Question, FilePath)]
filterQuestions includeLectures excludeTopics questions =
filter (not . (flip elem) excludeTopics . qstLectureId . fst) $
filter (not . (flip elem) excludeTopics . qstTopicId . fst) $
filter ((flip elem) includeLectures . qstLectureId . fst) questions
type GroupedQuestions = Map.HashMap T.Text (Map.HashMap T.Text [(Question, FilePath)])
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment