format test file

Author: lubegasimon

test/integration/markdown.t/test.mli

@@ -2,13 +2,13 @@
 
 (** {2:label This has a label}*)
 
-(** arrows (->) in a doc comment *)
+(** arrow (->) in a doc comment *)
 
 val concat : string -> string -> string
 
 (** {%html:foo:bar%} : a raw markup *)
 
-type t 
+type t
 (** Doc for [type t]. *)
 
 type a = t
@@ -22,25 +22,29 @@ end
 module type Bar' = sig
   type bar'
 end
-module type Foo = sig
 
+module type Foo = sig
+  type foo
   (** docs for x *)
-    type foo
 
-    include Bar'
+  include Bar'
 
-    module type Foo' = sig
-      type foo'
-      type days = 
-      | Mon (** first day of the week. *)
+  module type Foo' = sig
+    type foo'
 
-      type num =[ `One]
-
-    end
+    type days = Mon  (** first day of the week. *)
 
+    type num = [ `One ]
+  end
 end
 
-type name = {fname : string; (** first name *) lname: string}
+type other_names = { given : string; nickname : string }
+
+type name = {
+  fname : string;  (** first name *)
+  lname : string;
+  others : other_names;
+}
 
 (** {2:foo Label} *)
 
@@ -50,7 +54,6 @@ type name = {fname : string; (** first name *) lname: string}
 
 (** {{:href} test two foo } *)
 
-(** {{:href} {foo_bar} } *)
 (** {{:href} **barz** } *)
 
 (** {v
@@ -84,12 +87,13 @@ A numbered list:
     @author David Sheets
 *)
 
-
 (** The end foo end keyword in doc comment. *)
 module Foo : sig
   type foo
+
   type poly = [ `Mon | `Tue ]
-  type name = { fname:string; lname: string }
+
+  type name = { fname : string; lname : string }
 end
 
 (** p1 *)
@@ -104,6 +108,7 @@ end
     } *)
 
 (** This is where I begin my thing from. *)
+
 (** {ol
       {- one}
       {- two}