remove some warning suppress

butterunderflow · Aug 3, 2024 · 931a3ed · 931a3ed
1 parent ee409b6
commit 931a3ed
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 7 deletions.
diff --git a/bin/main.ml b/bin/main.ml
@@ -1,5 +1,3 @@
-[@@@warning "-32"]
-
 module S = Syntax
 module C = Typing.Check
 module Lo = Lam.Compile
@@ -45,9 +43,6 @@ let read_file filename =
     Some s)
   else None
 
-let out_sexp oc s =
-  Printf.fprintf oc "%s\n" (Sexplib.Sexp.to_string_hum ?indent:(Some 2) s)
-
 let default_output_file = "a.out"
 
 let get_output_file () =

diff --git a/lib/typing/typedtree.ml b/lib/typing/typedtree.ml
@@ -2,8 +2,6 @@ open Sexplib.Conv
 open Types_in
 module T = Syntax.Parsetree
 
-[@@@warning "-17"]
-
 type constant = T.constant [@@deriving sexp]
 
 type expr =