diff options
Diffstat (limited to 'stdlib/source/program/licentia/license/black-list.lux')
-rw-r--r-- | stdlib/source/program/licentia/license/black-list.lux | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/stdlib/source/program/licentia/license/black-list.lux b/stdlib/source/program/licentia/license/black-list.lux deleted file mode 100644 index 14dcdfe91..000000000 --- a/stdlib/source/program/licentia/license/black-list.lux +++ /dev/null @@ -1,31 +0,0 @@ -(.module: - [lux #* - [data - ["." maybe ("#\." functor)] - ["." text - ["%" format (#+ format)]] - [collection - ["." list ("#\." functor)]]]] - ["." // (#+ Entity Black-List) - ["_" term] - [// - ["$" document]]]) - -(def: #export entity - (-> Entity Text) - %.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 - (get@ #//.justification) - (maybe\map (|>> (format ", due to "))) - (maybe.default "")) - entities (|> black-list - (get@ #//.entities) - (list\map ..entity) - (text.join-with text.new-line))] - (format scope " " effect justification ":" text.new-line - entities))) |