diff options
Diffstat (limited to 'licentia/source/program')
| -rw-r--r-- | licentia/source/program/licentia.lux | 2 | ||||
| -rw-r--r-- | licentia/source/program/licentia/output.lux | 10 |
2 files changed, 6 insertions, 6 deletions
diff --git a/licentia/source/program/licentia.lux b/licentia/source/program/licentia.lux index d4478b885..e721e69b1 100644 --- a/licentia/source/program/licentia.lux +++ b/licentia/source/program/licentia.lux @@ -76,7 +76,7 @@ (<json>.result /input.license) (at ! each /output.license))))] (at file.default write (at utf8.codec encoded document) output)))] - (wrap (debug.log! (case ?done + (wrap (debug.log! (when ?done {try.#Success _} (success_message output) diff --git a/licentia/source/program/licentia/output.lux b/licentia/source/program/licentia/output.lux index 0f05937e2..30bdfaf5a 100644 --- a/licentia/source/program/licentia/output.lux +++ b/licentia/source/program/licentia/output.lux @@ -166,7 +166,7 @@ (def .public (extension value) (-> Extension Text) - (let [[show? document] (case (the license.#notification_period value) + (let [[show? document] (when (the license.#notification_period value) {.#Some period} [true (extension.notification_requirement period)] @@ -194,14 +194,14 @@ (def .public (attribution value) (-> Attribution Text) (let [copyright_notice (format "Attribution Copyright Notice: " (the license.#copyright_notice value)) - phrase (case (the license.#phrase value) + phrase (when (the license.#phrase value) {.#Some phrase} (format text.new_line "Attribution Phrase: " phrase text.new_line) {.#None} "") url (format text.new_line "Attribution URL: " (the license.#url value)) - image (case (the license.#image value) + image (when (the license.#image value) {.#Some image} (format text.new_line "Attribution Image: " image) @@ -257,7 +257,7 @@ (the license.#identification) (maybe#each ..identification) (maybe.default "")) - identified? (case (the license.#identification value) + identified? (when (the license.#identification value) {.#Some _} true @@ -266,7 +266,7 @@ (`` (format ($.block identification) ($.block (notice.copyright (the license.#copyright_holders value))) - (case (the license.#black_lists value) + (when (the license.#black_lists value) {.#End} "" |