aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/licentia/license/black-list.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/licentia/license/black-list.lux')
-rw-r--r--stdlib/source/program/licentia/license/black-list.lux31
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)))