Commits

camlspotter committed 5ea486b

removing Warnings

Comments (0)

Files changed (2)

         if at_the_head then
           { k = KMatch cols; indent = cols + 2; } :: bases0
         else
-          { k = KMatch (indent + 2); indent = cols + 2; } :: bases0
+          { k = KMatch indent; indent = cols + 2; } :: bases0
 
     | TRY ->
         bases0,

tests/begin_match.ml

+let _ = 
+  begin match true with
+  | true -> 1
+  | false -> 2
+  end
+
+let _ = 
+  begin prerr_endline "hello"; match true with
+  | true -> 1
+  | false -> 2
+  end
+
+let _ = 
+  begin 
+    prerr_endline "hello"; match true with
+    | true -> 1
+    | false -> 2
+  end
+
+let _ = 
+  (match true with
+  | true -> 1
+  | false -> 2
+  )
+
+let _ = 
+  match true with
+  | true -> 1
+  | false -> 2
+
+let _ = 
+  if true then match a with
+  | true -> 1
+  | false -> 2
+  else
+    0
+