diff options
Diffstat (limited to '')
-rw-r--r-- | licentia/source/program/licentia/license/black_list.lux (renamed from stdlib/source/program/licentia/license/black-list.lux) | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/program/licentia/license/black-list.lux b/licentia/source/program/licentia/license/black_list.lux index 14dcdfe91..d260f1865 100644 --- a/stdlib/source/program/licentia/license/black-list.lux +++ b/licentia/source/program/licentia/license/black_list.lux @@ -6,7 +6,7 @@ ["%" format (#+ format)]] [collection ["." list ("#\." functor)]]]] - ["." // (#+ Entity Black-List) + ["." // (#+ Entity Black_List) ["_" term] [// ["$" document]]]) @@ -15,17 +15,17 @@ (-> Entity Text) %.text) -(def: #export (black-list black-list) - (-> Black-List Text) +(def: #export (black_list black_list) + (-> Black_List Text) (let [scope (format "The rights granted under " _.license) effect "shall not be granted to the following entities, or any subsidiary thereof" - justification (|> black-list + justification (|> black_list (get@ #//.justification) (maybe\map (|>> (format ", due to "))) (maybe.default "")) - entities (|> black-list + entities (|> black_list (get@ #//.entities) (list\map ..entity) - (text.join-with text.new-line))] - (format scope " " effect justification ":" text.new-line + (text.join_with text.new_line))] + (format scope " " effect justification ":" text.new_line entities))) |