diff options
Diffstat (limited to '')
| -rw-r--r-- | licentia/source/program/licentia/license/liability.lux | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/licentia/source/program/licentia/license/liability.lux b/licentia/source/program/licentia/license/liability.lux index 10dfab0c2..3f7c62340 100644 --- a/licentia/source/program/licentia/license/liability.lux +++ b/licentia/source/program/licentia/license/liability.lux @@ -9,26 +9,26 @@ [// ["$" document]]]) -(def: warranty_communications +(def warranty_communications (List Text) (list "expressed" "implied" "statutory")) -(def: work_disclamers +(def work_disclamers (List Text) (list "free of defects" "merchantable" "fit for a particular purpose" "non-infringing")) -(def: fixes +(def fixes (List Text) (list "servicing" "repair" "correction")) -(def: .public warranty +(def .public warranty (let [on_basics (let [applicability_escape "Unless required by applicable law or agreed to in writing" work_provisioning (format _.licensor " provides " _.licensed_work @@ -60,7 +60,7 @@ on_importance on_authorization)))) -(def: damage_types +(def damage_types (List Text) (list "direct" "indirect" @@ -68,7 +68,7 @@ "incidental" "consequential")) -(def: damage_consequences +(def damage_consequences (List Text) (list "lost profits" "loss of goodwill" @@ -76,7 +76,7 @@ "computer failure or malfunction" "any and all other commercial damages or losses")) -(def: .public limitation +(def .public limitation (let [on_limit (let [exclusion "Under no circumstances and under no legal theory" examples "whether tort (including negligence), contract, or otherwise" applicable_law_exception "unless required by applicable law (such as deliberate and grossly negligent acts) or agreed to in writing" @@ -92,7 +92,7 @@ on_death_exception on_jurisdictions)))) -(def: .public litigation +(def .public litigation (let [on_jurisdiction (format "Any litigation relating to " _.license " may be brought only in the courts of a jurisdiction where the defendant maintains its principal place of business") on_laws "Such litigation shall be governed by laws of that jurisdiction, without reference to its conflict-of-law provisions" on_claims "Nothing in this section shall prevent a party’s ability to bring cross-claims or counter-claims"] @@ -100,7 +100,7 @@ on_laws on_claims)))) -(def: liability_obligations +(def liability_obligations (List Text) (list "support" "warranty" @@ -108,7 +108,7 @@ "other liability obligations" (format "rights consistent with " _.license))) -(def: .public can_accept +(def .public can_accept (let [on_acceptance_of_liability (let [condition (format "While redistributing " _.licensed_work " or " ($.plural _.extension) " thereof") right (format _.recipient " may choose to offer, and charge a fee for, acceptance of " ($.and/or ..liability_obligations))] (format condition ", " right)) @@ -130,7 +130,7 @@ ($.paragraph (list on_acceptance_of_liability on_responsibility)))) -(def: .public disclaim_high_risk +(def .public disclaim_high_risk (let [on_work (let [intentions (is (List Text) (list "designed" "manufactured" |