examples: update Downloader.par

Author: faiface

examples/Downloader.par

@@ -7,17 +7,16 @@ type Event = (Os.Path) either {  // destination
 
 def Main =
   let rootPath = Os.Path(".").append("Downloads") in
-  rootPath                                     // : Os.Path
-    ->YieldDownloadRequests("127.0.0.1:3000")  // : List<(Url) Os.Path>
-    ->Map1(box DownloadFile)                   // : List<List<Event>>
-    ->FanIn1                                   // : List<Event>
-    ->ShowDownloadProgress(rootPath)           // : !
+  YieldDownloadRequests("127.0.0.1:3000", rootPath)  // : List<(Url) Os.Path>
+    ->Map1(box DownloadFile)                         // : List<List<Event>>
+    ->FanIn1                                         // : List<Event>
+    ->ShowDownloadProgress(rootPath)                 // : !
 
 def Map1 = Map(type (Url) Os.Path, List<Event>)
 def FanIn1 = FanIn(type Event)
 
-dec YieldDownloadRequests : [Os.Path, String] List<(Url) Os.Path>
-def YieldDownloadRequests = [rootPath, listenUrl] chan yield {
+dec YieldDownloadRequests : [String, Os.Path] List<(Url) Os.Path>
+def YieldDownloadRequests = [listenUrl, rootPath] chan yield {
   Debug.Log(Concat(*("Listening on ", listenUrl, "...")))
   catch e => {
     Debug.Log(Concat(*("Listening error: ", e)))