From 519c0c0c71cdf7ce3dfc64b9781ab826760b3d94 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 14 Jun 2021 18:33:54 -0400
Subject: Extracted Licentia out of the standard library.

---
 .../source/program/licentia/license/black-list.lux | 31 ----------------------
 1 file changed, 31 deletions(-)
 delete mode 100644 stdlib/source/program/licentia/license/black-list.lux

(limited to 'stdlib/source/program/licentia/license/black-list.lux')

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)))
-- 
cgit v1.2.3