Commit 1376ac24 authored by Joachim Schunk's avatar Joachim Schunk
Browse files

use new migration mechanics in build

parent 67afe576
Pipeline #106177 passed with stages
in 2 minutes and 41 seconds
(ns leukipp.components.exercise-types.calculation.build
(:require
[leukipp.components.exercise-types.build :as e-build]
[leukipp.components.exercise-types.calculation.migrate
:refer
[exercise-scheme-version migrate-exercise]]
[leukipp.components.helper :refer [migrate-if-necessary]]))
[leukipp.components.exercise-types.calculation.migration :as migration]))
(defn build [exercise]
(if-let [migrated-exercise (migrate-if-necessary exercise :exercise-scheme "calculation"
exercise-scheme-version migrate-exercise)]
migrated-exercise
(-> exercise
(select-keys [:title :id])
(assoc :debug-info "unmigrateable"))))
(migration/migrate-blueprint exercise))
(defmethod e-build/build :calculation [exercise & _]
(build exercise))
Supports Markdown
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