From 6fd22846f21b8b70b7867e989109d14a366c0a3e Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 14 Aug 2021 03:09:58 -0400
Subject: Moved documentation-generation machinery to its own module.

---
 stdlib/source/program/aedifex/hash.lux       | 2 +-
 stdlib/source/program/aedifex/repository.lux | 4 ++--
 stdlib/source/program/compositor/import.lux  | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'stdlib/source/program')

diff --git a/stdlib/source/program/aedifex/hash.lux b/stdlib/source/program/aedifex/hash.lux
index 46a6fc67a..63394c8c9 100644
--- a/stdlib/source/program/aedifex/hash.lux
+++ b/stdlib/source/program/aedifex/hash.lux
@@ -123,7 +123,7 @@
                chunk 0
                output (binary.empty hash_size)]
           (let [index (n.* chunk i64.bytes_per_i64)]
-            (case (text.split ..hex_per_chunk input)
+            (case (text.split_at ..hex_per_chunk input)
               (#.Some [head tail])
               (do try.monad
                 [head (\ n.hex decode head)
diff --git a/stdlib/source/program/aedifex/repository.lux b/stdlib/source/program/aedifex/repository.lux
index 8d6d63b3a..914cd1420 100644
--- a/stdlib/source/program/aedifex/repository.lux
+++ b/stdlib/source/program/aedifex/repository.lux
@@ -51,7 +51,7 @@
        (\ mock the_description))
      
      (def: (download uri)
-       (stm.commit
+       (stm.commit!
         (do {! stm.monad}
           [|state| (stm.read state)]
           (case (\ mock on_download uri |state|)
@@ -64,7 +64,7 @@
             (in (#try.Failure error))))))
 
      (def: (upload uri content)
-       (stm.commit
+       (stm.commit!
         (do {! stm.monad}
           [|state| (stm.read state)]
           (case (\ mock on_upload uri content |state|)
diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux
index ca72f9749..5d1eba51c 100644
--- a/stdlib/source/program/compositor/import.lux
+++ b/stdlib/source/program/compositor/import.lux
@@ -55,7 +55,7 @@
                                                       (case entry
                                                         (#tar.Normal [path instant mode ownership content])
                                                         (let [path (tar.from_path path)]
-                                                          (case (dictionary.try_put path (tar.data content) import)
+                                                          (case (dictionary.has' path (tar.data content) import)
                                                             (#try.Failure error)
                                                             (exception.except ..duplicate [library path])
 
-- 
cgit v1.2.3