Extracted Licentia out of the standard library.

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)))