Commits

UENISHI Kota  committed 1430646

http_get done

  • Participants
  • Parent commits 6c9a013

Comments (0)

Files changed (3)

+#use "topfind"
 #
 # This project requires ocamlfind (default - false).
 #
-# USE_OCAMLFIND = true
-#
-# OCAMLPACKS[] =
-#    pack1
+USE_OCAMLFIND = true
+
+OCAMLPACKS[] =
+    netclient
 #    pack2
 #
-# if $(not $(OCAMLFIND_EXISTS))
-#    eprintln(This project requires ocamlfind, but is was not found.)
-#    eprintln(You need to install ocamlfind and run "omake --configure".)
-#    exit 1
-
+#if $(not $(OCAMLFIND_EXISTS))
+#   eprintln('This project requires ocamlfind, but is was not found.')
+#   eprintln(You need to install ocamlfind and run "omake --configure".)
+#   exit 1
+#
 #
 # Include path
 #
+
 open Xml;;
+(* open Http_client;;
+ #require "netclient";; *)
+open Http_client.Convenience;;
 
+let get_and_print url =
+  let s = http_get url in
+  print_string s;
+  flush stdout
+;;
 
+get_and_print "http://www.google.com";;