update example http server with the latest example

Author: bobzhang

examples/node-http-server/package.json

@@ -1,6 +1,6 @@
 {
     "devDependencies": {
-        "bs-platform": "0.6.2"
+        "bs-platform": "0.7.1"
     },
     "scripts" : {
         "build" : "bsc -c test_http_server.ml"

examples/node-http-server/test_http_server.js

@@ -1,4 +1,4 @@
-// GENERATED CODE BY BUCKLESCRIPT VERSION 0.6.2 , PLEASE EDIT WITH CARE
+// GENERATED CODE BY BUCKLESCRIPT VERSION 0.7.1 , PLEASE EDIT WITH CARE
 'use strict';
 
 var Pervasives = require("bs-platform/lib/js/pervasives");

examples/node-http-server/test_http_server.ml

@@ -22,43 +22,47 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
-[@@@bs.config{non_export = true; obj_type_auto_uncurry = true}]
-
-let port = 3000
-let hostname = "127.0.0.1"
-let create_server  http = 
-  let server = http##createServer (fun [@uncurry]  (req,  resp)  -> 
-      resp##statusCode_set 200;
-      resp##setHeader("Content-Type", "text/plain");
-      resp##end_ "Hello world\n"
-    )
-  in
-  server##listen(port, hostname,  fun [@uncurry] () -> 
-      Js.log ("Server running at http://"^ hostname ^ ":" ^ string_of_int port ^ "/")
-    ) 
+[@@@bs.config{no_export; bs_class_type}]
 
 type req 
 
-type resp =  [%bs.obj:<
-   statusCode_set : int -> unit  ;
-   setHeader : string * string -> unit ;
-   end_ : string ->  unit 
-> ]
+class type _resp = object 
+  method statusCode : int [@@bs.set]
+  method setHeader : string -> string -> unit 
+  method _end : string -> unit 
+end 
 
-type server =  [%bs.obj:<
-   listen : int * string *  (unit -> unit) -> unit 
-> ]
+type resp = _resp Js.t 
 
+class type _server = object 
+  method listen : int -> string -> (unit -> unit [@bs]) -> unit 
+end 
+type server = _server Js.t 
 
+class type _http  = object 
+  method createServer : (req  ->  resp  -> unit [@bs] ) ->  server
+end 
 
-type http = [%bs.obj:<
-   createServer : (req  * resp  -> unit ) ->  server
-> ]
+type http = _http Js.t 
 
 
 external http : http  = "http"  [@@bs.val_of_module ]
 
 
+let port = 3000
+let hostname = "127.0.0.1"
+let create_server  (http : http) = 
+  let server = http##createServer begin fun [@bs] req  resp  -> 
+      resp##statusCode #= 200;
+      resp##setHeader "Content-Type" "text/plain";
+      resp##_end "Hello world\n"
+    end
+  in
+  server##listen port hostname  begin fun [@bs] () -> 
+    Js.log ("Server running at http://"^ hostname ^ ":" ^ string_of_int port ^ "/")
+  end 
+
+
 let () = 
   create_server http
 

examples/reason-demo/package.json

@@ -7,6 +7,6 @@
   },
     "scripts" : {
         "build" : "source dependencyEnv && bsc -pp ./node_modules/reason/refmt_impl.native -impl hello.re" 
-    },
-    "name" : "test"
+    }
+    , "name" : "test"
 }