         (overall-timetable-prune-empty-rows affectedDaysSet)
         (.log js/console "Whats up")
 
-        ; Update `ModulesSelected`
-        (update-ModulesSelected-for-affected-days! affectedDaysSet)
+        (remove-module-from-ModulesSelected! moduleCode affectedDaysSet)
         (.log js/console "Boo ya!")
         (.log js/console (str "ModulesSelected:" (.stringify js/JSON (clj->js ModulesSelected))))
 

        ; remove the lesson <div>s
        (remove-lesson-group-html augTTLessonInfoSeq)

        ; Remove module from `ModulesSelected`
        (set! ModulesSelected (dissoc ModulesSelected moduleCode))

        (.log js/console "Reached here man")

        ; Perform shifting due to removal of lesson <div>s

    ; adjust rowspan of <th>
    (attr $thElem "rowspan" (max nrNonEmptyRows 2))))

(defn- create-lesson-div
  "Creates a <div> element for a new lesson using jQuery"
  [& {:keys [moduleCode moduleName lessonType lessonGroup venue slotsOcc
