Less aggressive warning flags

Fixes #66.

src/dune

@@ -4,4 +4,4 @@
  (synopsis "Error-recovering functional HTML5 and XML parsers")
  (instrumentation (backend bisect_ppx))
  (libraries uutf)
- (flags (:standard -w +A-4-9-44-48 -warn-error -3-4-9-44-48 -safe-string)))
+ (flags (:standard -w -9)))

src/lwt/dune

@@ -3,5 +3,4 @@
  (public_name markup-lwt)
  (synopsis "Lwt support for Markup.ml")
  (instrumentation (backend bisect_ppx))
- (libraries lwt markup)
- (flags (:standard -w +A-4-9-44-48 -warn-error -3-4-9-44-48 -safe-string)))
+ (libraries lwt markup))

src/lwt_unix/dune

@@ -3,5 +3,4 @@
  (public_name markup-lwt.unix)
  (synopsis "Lwt_unix helpers for Markup.ml")
  (instrumentation (backend bisect_ppx))
- (libraries lwt lwt.unix markup markup-lwt)
- (flags (:standard -w +A-4-9-44-48 -warn-error -3-4-9-44-48 -safe-string)))
+ (libraries lwt lwt.unix markup markup-lwt))

src/translate_entities/dune

@@ -1,4 +1,3 @@
 (executable
  (name translate_entities)
- (libraries yojson)
- (flags (:standard -w +A)))
+ (libraries yojson))

test/dependency/dune

@@ -1,17 +1,14 @@
 (executable
  (name dep_core)
  (modules dep_core)
- (libraries markup)
- (flags (:standard -w +A-48)))
+ (libraries markup))
 
 (executable
  (name dep_lwt)
  (modules dep_lwt)
- (libraries markup-lwt)
- (flags (:standard -w +A-48)))
+ (libraries markup-lwt))
 
 (executable
  (name dep_lwt_unix)
  (modules dep_lwt_unix)
- (libraries markup-lwt.unix)
- (flags (:standard -w +A-48)))
+ (libraries markup-lwt.unix))

test/dune

@@ -1,7 +1,6 @@
 (executable
  (name test)
- (libraries markup ounit2 test_support)
- (flags (:standard -w +A-44-48)))
+ (libraries markup ounit2 test_support))
 
 (rule
  (alias runtest)

test/js_of_ocaml/dune

@@ -1,5 +1,4 @@
 (executable
  (name test_js_of_ocaml)
  (modes js)
- (libraries markup markup-lwt)
- (flags (:standard -w +A-44)))
+ (libraries markup markup-lwt))

test/lwt_unix/dune

@@ -1,7 +1,6 @@
 (executable
  (name test_lwt)
- (libraries lwt.unix markup-lwt.unix ounit2 test_support)
- (flags (:standard -w +A-44)))
+ (libraries lwt.unix markup-lwt.unix ounit2 test_support))
 
 (rule
  (alias runtest)

test/performance/dune

@@ -1,23 +1,19 @@
 (library
  (name performance_common)
  (modules performance_common)
- (libraries unix)
- (flags (:standard -w +A)))
+ (libraries unix))
 
 (executable
  (name performance_markup)
  (modules performance_markup)
- (libraries markup performance_common unix)
- (flags (:standard -w +A-48)))
+ (libraries markup performance_common unix))
 
 (executable
  (name performance_nethtml)
  (modules performance_nethtml)
- (libraries threads netstring performance_common)
- (flags (:standard -w +A-48)))
+ (libraries threads netstring performance_common))
 
 (executable
  (name performance_xmlm)
  (modules performance_xmlm)
- (libraries unix performance_common xmlm)
- (flags (:standard -w +A)))
+ (libraries unix performance_common xmlm))

test/support/dune

@@ -1,4 +1,3 @@
 (library
  (name test_support)
- (libraries markup ounit2)
- (flags (:standard -w +A-44)))
+ (libraries markup ounit2))

test/test_kstream.ml

@@ -172,7 +172,7 @@ let internal_tests = [
   ("kstream.internal.tap.exn" >:: fun _ ->
     let buffer = Buffer.create 4 in
     let s = then_exn ['f'; 'o'; 'o'; 'b'] in
-    tap (Buffer.add_char buffer) s |> ignore;
+    (tap (Buffer.add_char buffer) s |> ignore) [@ocaml.warning "-5"];
     to_list s failed (wrong_k "did not fail");
     assert_equal (Buffer.contents buffer) "foob");