From 1ab2d347a7fe97fed18a9de265ad8db030181e01 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 6 Sep 2010 21:43:51 -0700
Subject: [PATCH] mason: fix load errors

---
 extra/mason/build/build.factor |  4 ++--
 extra/mason/docs/docs.factor   | 34 +++++++++++++++++++++-------------
 2 files changed, 23 insertions(+), 15 deletions(-)

diff --git a/extra/mason/build/build.factor b/extra/mason/build/build.factor
index f556aae896..e037bdba0c 100644
--- a/extra/mason/build/build.factor
+++ b/extra/mason/build/build.factor
@@ -3,7 +3,7 @@
 USING: arrays kernel calendar io.directories io.encodings.utf8
 io.files io.launcher io.pathnames namespaces prettyprint
 combinators mason.child mason.cleanup mason.common mason.config
-mason.help mason.release mason.report mason.email mason.git
+mason.docs mason.release mason.report mason.email mason.git
 mason.notify mason.platform mason.updates ;
 QUALIFIED: continuations
 IN: mason.build
@@ -43,7 +43,7 @@ IN: mason.build
         begin-build
         build-child
         [ notify-report ]
-        [ status-clean eq? [ upload-help release ] when ] bi
+        [ status-clean eq? [ upload-docs release ] when ] bi
         finish-build
     ] [ cleanup ] [ ] continuations:cleanup ;
 
diff --git a/extra/mason/docs/docs.factor b/extra/mason/docs/docs.factor
index 6b44e49c61..0c3feaa4e9 100644
--- a/extra/mason/docs/docs.factor
+++ b/extra/mason/docs/docs.factor
@@ -1,23 +1,31 @@
-! Copyright (C) 2008, 2009 Slava Pestov.
+! Copyright (C) 2008, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: arrays help.html io.directories io.files io.launcher
-kernel make mason.common mason.config namespaces sequences ;
-IN: mason.help
+USING: arrays hashtables help.html http.client io.directories
+io.files io.launcher kernel make mason.common mason.config
+namespaces sequences ;
+IN: mason.docs
 
-: make-help-archive ( -- )
+: make-docs-archive ( -- )
     "factor/temp" [
         { "tar" "cfz" "docs.tar.gz" "docs" } short-running-process
     ] with-directory ;
 
-: upload-help-archive ( -- )
+: upload-docs-archive ( -- )
     "factor/temp/docs.tar.gz"
-    help-username get
-    help-host get
-    help-directory get "/docs.tar.gz" append
+    docs-username get
+    docs-host get
+    docs-directory get "/docs.tar.gz" append
     upload-safely ;
 
-: upload-help ( -- )
-    upload-help? get [
-        make-help-archive
-        upload-help-archive
+: notify-docs ( -- )
+    status-secret get "secret" associate
+    docs-update-url get
+    http-post
+    2drop ;
+
+: upload-docs ( -- )
+    upload-docs? get [
+        make-docs-archive
+        upload-docs-archive
+        notify-docs
     ] when ;
\ No newline at end of file