From f9d4d316ef9666f6b122b0eec8180351216e95f8 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 15 Mar 2019 00:23:49 -0400
Subject: Changed the convention for the structure opening separator from "/"
 to ";", to avoid confusion since "/" is used for relative module paths.

---
 stdlib/source/program/licentia/output.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'stdlib/source/program/licentia/output.lux')

diff --git a/stdlib/source/program/licentia/output.lux b/stdlib/source/program/licentia/output.lux
index 475c4b908..29d61dd42 100644
--- a/stdlib/source/program/licentia/output.lux
+++ b/stdlib/source/program/licentia/output.lux
@@ -1,11 +1,11 @@
 (.module:
   [lux (#- Definition)
    [data
-    ["." maybe ("#/." functor)]
+    ["." maybe ("#;." functor)]
     ["." text
      format]
     [collection
-     ["." list ("#/." functor monoid)]]]]
+     ["." list ("#;." functor monoid)]]]]
   [//
    ["." license (#+ Identification
                     Termination
@@ -175,7 +175,7 @@
                          "")]
 
                       [(get@ #license.same-license? value) "License Retention"
-                       ($.paragraph (list/compose extension.sharing-requirement
+                       ($.paragraph (list;compose extension.sharing-requirement
                                                   extension.license-conflict-resolution))]
                       
                       [(get@ #license.must-be-distinguishable? value) (format _.extension " Distinctness")
@@ -251,7 +251,7 @@
   (-> License Text)
   (let [identification (|> value
                            (get@ #license.identification)
-                           (maybe/map ..identification)
+                           (maybe;map ..identification)
                            (maybe.default ""))
         identified? (case (get@ #license.identification value)
                       (#.Some _)
@@ -269,12 +269,12 @@
                   black-lists
                   ($.block ($.section {#$.title (format "Denial of " _.license)
                                        #$.content (|> black-lists
-                                                      (list/map black-list.black-list)
+                                                      (list;map black-list.black-list)
                                                       (text.join-with ..black-list-spacing))})))
                 
                 ($.section {#$.title "Definitions"
                             #$.content (|> definition.all
-                                           (list/map (|>> ..definition $.block))
+                                           (list;map (|>> ..definition $.block))
                                            (text.join-with ""))})
 
                 ($.block ($.section {#$.title (format "Acceptance of " _.license)
@@ -294,7 +294,7 @@
 
                 (|> value
                     (get@ #license.attribution)
-                    (maybe/map (|>> ..attribution
+                    (maybe;map (|>> ..attribution
                                     ["Attribution Information"]
                                     $.section
                                     $.block))
-- 
cgit v1.2.3