Fixed PacletSite upload result

Author: b3m2a1

PacletTools.m

@@ -2699,7 +2699,7 @@
 				]
 			]
 		},
-		Most[res]/;MatchQ[res,_CloudObject]
+		Take[res, 1]/;MatchQ[res,_CloudObject]
 		]
 pacletSiteUpload[
 	dir:(_String|_File)?DirectoryQ,

PacletTools.nb

@@ -393,7 +393,7 @@ Cell[BoxData[
     RowBox[{"Permissions", "\[Rule]", "\"\<Public\>\""}]}], "\n", "\t\t", 
    "|>"}]}]], \
 "CodeInput",ExpressionUUID->"90b9be8d-566c-49f0-b932-7c22a2c0f72d"]
-}, Open  ]],
+}, Closed]],
 
 Cell[CellGroupData[{
 
@@ -6781,7 +6781,8 @@ Cell[BoxData[{
          "\t\t\t\t", "]"}]}], "\n", "\t\t\t", "]"}]}], "\n", "\t\t", "}"}], 
     ",", "\n", "\t\t", 
     RowBox[{
-     RowBox[{"Most", "[", "res", "]"}], "/;", 
+     RowBox[{"Take", "[", 
+      RowBox[{"res", ",", " ", "1"}], "]"}], "/;", 
      RowBox[{"MatchQ", "[", 
       RowBox[{"res", ",", "_CloudObject"}], "]"}]}]}], "\n", "\t\t", 
    "]"}]}], "\n", 
@@ -6846,23 +6847,15 @@ Cell[BoxData[{
           RowBox[{
            RowBox[{"URL", "@", "site"}], ",", "1", ",", "URL"}], "]"}]}]}], 
        ",", "\n", "\t\t\t", "pacletMZ", ",", "\n", "\t\t\t", "ops"}], "\n", 
-      "\t\t\t", "]"}]}], "\n", "\t\t", "]"}]}], ";"}]}], "CodeInput",
- CellChangeTimes->{{3.705687991311474*^9, 3.705688052088292*^9}, 
-   3.705688537995163*^9, {3.7056888368398657`*^9, 3.705688862859565*^9}, {
-   3.70568962060161*^9, 3.7056896552159977`*^9}, {3.7056905331550093`*^9, 
-   3.705690727433899*^9}, {3.7056934310910883`*^9, 3.705693493452941*^9}, 
-   3.705693524324712*^9, {3.705693843287002*^9, 
-   3.705693844845971*^9}},ExpressionUUID->"2a8b4257-a092-4734-ad25-\
-cf4dca95dfa4"]
+      "\t\t\t", "]"}]}], "\n", "\t\t", "]"}]}], 
+  ";"}]}], "CodeInput",ExpressionUUID->"2a8b4257-a092-4734-ad25-cf4dca95dfa4"]\
+
 }, Closed]],
 
 Cell[CellGroupData[{
 
 Cell["\[LeftCeiling]PacletSiteUpload\[RightFloor]", "CodeSubsubsubsection",
- Evaluatable->True,
- CellChangeTimes->{{3.720577740631531*^9, 
-  3.72057774717374*^9}},ExpressionUUID->"38b0e06c-58bb-4ba7-a414-\
-05a07aea5555"],
+ Evaluatable->True,ExpressionUUID->"38b0e06c-58bb-4ba7-a414-05a07aea5555"],
 
 Cell[BoxData[{
  RowBox[{
@@ -7041,7 +7034,7 @@ Cell[BoxData[{
   3.720578255634818*^9, 
   3.720578265447036*^9}},ExpressionUUID->"0d1da453-900a-49a4-bd17-\
 b39bd1b9c9f0"]
-}, Closed]]
+}, Open  ]]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -8579,7 +8572,7 @@ Cell[BoxData[{
 3c6d6731ab90"]
 }, Open  ]]
 }, Open  ]]
-}, Closed]],
+}, Open  ]],
 
 Cell[CellGroupData[{