Made the "#" character great again!

3 files changed, 16 insertions, 16 deletions

diff --git a/stdlib/source/program/aedifex/repository.lux b/stdlib/source/program/aedifex/repository.lux
index b836cfa54..365195828 100644
--- a/stdlib/source/program/aedifex/repository.lux
+++ b/stdlib/source/program/aedifex/repository.lux
@@ -57,24 +57,24 @@
         (do [! stm.monad]
           [|state| (stm.read state)]
           (case (\ mock on_download uri |state|)
-            {#try.Success [|state| output]}
+            {try.#Success [|state| output]}
             (do !
               [_ (stm.write |state| state)]
-              (in {#try.Success output}))
+              (in {try.#Success output}))
             
-            {#try.Failure error}
-            (in {#try.Failure error})))))
+            {try.#Failure error}
+            (in {try.#Failure error})))))
 
      (def: (upload uri content)
        (stm.commit!
         (do [! stm.monad]
           [|state| (stm.read state)]
           (case (\ mock on_upload uri content |state|)
-            {#try.Success |state|}
+            {try.#Success |state|}
             (do !
               [_ (stm.write |state| state)]
-              (in {#try.Success []}))
+              (in {try.#Success []}))
             
-            {#try.Failure error}
-            (in {#try.Failure error})))))
+            {try.#Failure error}
+            (in {try.#Failure error})))))
      )))
diff --git a/stdlib/source/program/aedifex/repository/local.lux b/stdlib/source/program/aedifex/repository/local.lux
index 508fcba28..e00c5f240 100644
--- a/stdlib/source/program/aedifex/repository/local.lux
+++ b/stdlib/source/program/aedifex/repository/local.lux
@@ -53,7 +53,7 @@
        _ (if ?
            (in [])
            (case (file.parent fs absolute_path)
-             {#.Some parent}
+             {.#Some parent}
              (file.make_directories async.monad fs parent)
 
              _
diff --git a/stdlib/source/program/aedifex/repository/remote.lux b/stdlib/source/program/aedifex/repository/remote.lux
index 269ff15a9..9f09b0993 100644
--- a/stdlib/source/program/aedifex/repository/remote.lux
+++ b/stdlib/source/program/aedifex/repository/remote.lux
@@ -65,15 +65,15 @@
       [[status message] (: (IO (Try (@http.Response IO)))
                            (http.get (format address uri)
                                      (http.headers ..base_headers)
-                                     #.None
+                                     {.#None}
                                      http))]
       (case status
         (^ (static http/status.ok))
-        (\ ! each product.right ((value@ #@http.body message) #.None))
+        (\ ! each product.right ((value@ #@http.body message) {.#None}))
         
         _
         (do !
-          [_ ((value@ #@http.body message) {#.Some 0})]
+          [_ ((value@ #@http.body message) {.#Some 0})]
           (\ io.monad in (exception.except ..download_failure [(format address uri) status]))))))
 
   (def: (upload uri content)
@@ -81,15 +81,15 @@
       [[status message] (: (IO (Try (@http.Response IO)))
                            (http.put (format address uri)
                                      (http.headers (case identity
-                                                     #.None
+                                                     {.#None}
                                                      ..base_headers
                                                      
-                                                     {#.Some [user password]}
+                                                     {.#Some [user password]}
                                                      (list& ["Authorization" (//identity.basic_auth user password)]
                                                             ..base_headers)))
-                                     {#.Some content}
+                                     {.#Some content}
                                      http))
-       _ ((value@ #@http.body message) {#.Some 0})]
+       _ ((value@ #@http.body message) {.#Some 0})]
       (case status
         (^ (static http/status.created))
         (in [])