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

Fix topic exclusion

parent 8c8df064
...@@ -274,7 +274,7 @@ joinPandoc list = ...@@ -274,7 +274,7 @@ joinPandoc list =
filterQuestions filterQuestions
:: [T.Text] -> [T.Text] -> [(Question, FilePath)] -> [(Question, FilePath)] :: [T.Text] -> [T.Text] -> [(Question, FilePath)] -> [(Question, FilePath)]
filterQuestions includeLectures excludeTopics questions = 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 filter ((flip elem) includeLectures . qstLectureId . fst) questions
type GroupedQuestions = Map.HashMap T.Text (Map.HashMap T.Text [(Question, FilePath)]) 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